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ABSTRACT 


The information presented in this document on the Colossus 3 
(manned Apollo Command Module earth orbital and lunar) guidance program 
was produced with the intention that it be used together with a symbolic 
tabulation of the program. The information is divided into a series of 
separate segments called "writeups", each of which describes a basic 
area of guidance computations within the program. In order to assist the 
user in finding the computations for a particular quantity, summaries of 
each of the writeups, plus a brief discussion of the program computation 
flow, have been incl\ided. At the end of the docimient is an alphabetical 
list of the routines in the writeups, together with their location by 
page number in the individual writeups. 

The program listing from which the "programmed equations" information 
was generated is identified as "Artemis 72", which is being wired into 
computer memory ropes for the "J" missions (starting with Apollo 15)* 
Identification of areas of change since the previous flight program was 
considerably aided by the results of a symbolic comparison program 
developed by Flight Software Branch. 

Because of the purposes for which the information in this document was 
prepared, and the methods used in its production, this material under no 
circumstances should be considered as definitive information on the Colossus 
program. Contrary to an analogous document produced by MSC for the LM 
program, this document has not been approved by NASA management. Since 
this document has not been approved by NASA, therefore, it should never 
be used or cited as a reference for the equations in the Colossus computer 
program. 
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Introduction 


Under the auspices of TRW Systems MTCP task A-201 ("Support of 
Apollo Guidance Document Review," J. R. Garman, task monitor), a review 
of certain portions of the Apollo Guidance Computer program identified 
as "Colossus 3" has been conducted. This program is a considerably 
modified version of the "Colossus 2E" program used on the "H3" (Apollo 14) 
mission, and is intended for use with the Command Module Computer on the "J" 
missions. The major purpose of this review has been to provide more 
effective support to the Flight Software Branch of MSC in the identification 
and analysis of various program performance features, and to permit more 
effective and rapid review of published computer program documentation. 

During similar reviews of the AS-202, AS-204, AS-501, IM-1, Sundisk, 
Sundance, and previous programs of the Colossus (lunar CSM) series, it was 
found desirable to assemble a set of working-paper information on the 
equations which seem to have been programmed for these flights. This 
material has proven to be useful to a few groups associated with these 
flights, in that it can be used to help bridge the gap between the extreme 
detail of the program listing and what appears in the approved computer 
program documentation. Consequently, the material on the following pages 
has been assembled in a fashion similar to that done for previous flights, 
and follows the same general format. 

Certain aspects of the program are quite complex, and this programmed 
guidance equation material should not be considered as a substitute for 
actual study of the program sjmibolic listing itself. To assist in such 
a study, the binary scale factors of equation quantities have been included, 
as well as the program notation employed for constants (the notation for 
variables follows that, in general, used in the program), and except in 
a few instances divisions have been made in accordance with the symbolic 
tags assigned to program steps in the listing. It should be realized that 
no complete set of approved computer program documentation was available 
against which the programmed equations could be validated, and in the 
interests of timely publication the review of the assembled document against 
the program assembly has not been as detailed as would be desired. 

The program assentoly listing which was used to prepare the programmed 
equations information bears the heading print: 

REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011, 

19:41 FEB. 26,1971 

The function of virtually all the program steps of interest to the flight 
is described on the following pages or, for general computer system control 
(executive and waitlist system, interpretive language, and similar items) 
in 3420.5-27 (see Notation and Terminology). Only isolated omissions of 
unreferenced constants and non-executed program steps have been made. 

It is emphasized that the material on the following pages is intended 
to be an aid to the review of the symbolic listing, not a substitute for it. 
Definitive guidance equation information can and should be provided only 
in approved computer program documentation, available through the appropriate 
MSC channels . 
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Summary of Individual Writeups 


The information on the programmed equations has been divided into 
a number of separate entities called "writeups" . Each writeup is 
intended to be complete within itself except for definition of certain 
frequently used quantities (described in "Major Variables") and perhaps 
for reference to routines in other writeups (whose location may be 
fo\jnd through use of the "Index of Routines"). Familiarity with the 
information in "Notation and Terminology" is necessary in order to 
understand the material presented in the individual writeups, since a 
somewhat specialized type of notation is necessary in order to describe 
adequately the computations within the guidance program. Individual 
writeups are assigned four-letter codes, with page numbers restarted 
at the beginning of each writeup, to facilitate updating. The 
writeups are arranged in the alphabetical order of these four— letter 
codes, and are also arranged in that sequence below. 


Attitude Maneuvers (ATTM) 

This writeup contains the computations perfomied to determine the 
axis about which spacecraft rotation should take place and the magnitude 
of the rotation reqiiired to go from the present vehicle attitude to a 
final specified attitude. It also shows the attitude computations which 
are performed to provide a general-purpose vehicle attitijde pointing 
capability. 

Boost Computations (BOOS) 

This writeup contains the computations performed when the liftoff 
signal is received, including the control for computing display parameters 
diiring the boost phase of flight, the calculations to drive the error 
needle displays, and the computations associated with the Saturn mode of 
operation of the Digital Autopilot (DAP) . Also included are the equations 
used for backup Saturn steering after liftoff, as well as those for backup 
S4B cutoff for TLI. 
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Burn Control (BURN) 


This writeup contains the control computations associated with 
most of the pre-thrust and thrusting programs, except for P37 (in 
Return to Earth Computations). This includes the logic associated 
with the generation of the various displays and some of the computations 
associated with the programs themselves (other computations are in 
the Rendezvous Computations and Steering Computations writeups). The 
control for sequencing through the automatic rendezvous sequence is in 
the I^inimum Key Rendezvous writeup. 

Conic Routines (CONC) 

This writeup contains the various conic subroutines that are 
grouped together in the program and in official equation information, 
including the Lambert and Kepler routines. 

Coordinate Transformations (COOR) 

This writeup contains the various coordinate transformation 
subroutines in the program, entered by the using routines as necessary. 
Also included are the routines for determining lunar and solar position, 
for the transforming between latitude/longitude/altitude and a 
position vector, and for converting between planetary and inertial 
coordinates . 

Data Input /Output (DATA) 

This writeup contains the computations performed in response to 
a keyboard (DSKY) or uplink input, as well as those routines that 
permit internal use of the display system. The computations associated 
with most of the nouns and special-purpose verbs, as well as the 
display interface routines, are subjects of separate writeups. 

Display Interface Routines (DINT) 

This writeup contains the various display interface routines used 
by internal callers of the display system in order to achieve proper 
sequencing of the displays according to their priorities, and to 
achieve various special-purpose displays with a minimum of complication 
to the "mission program" making use of the display system. 

Display Computations (DISP) 

This writeup contains the computation of those variables whose 
major (or sole) purpose is display for crew review or action (time of 
flight, special rendezvous displays, entry preparation displays, antenna 
pointing display, etc.). 
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Digital Autopilot Entry Routines (OPEN) 


This writeup contains the computations associated with the 
performance of the digital autopilot (DAP) during the entry phase of 
the flight, including the selection of appropriate RCS jets for the CM 
and the timing of their firing duration. 

Digital Autopilot Interface Routines (PPIR) 

This writeup includes those computations performed in support 
of several portions of the DAP (such as derivation of mass properties 
information), as well as those influencing both the DAP and the non- 
DAP portions of the program (such as engine gimbal drive test). Also 
included are the computations associated with the crew use of DAP 
parameters (verb 46 and verb 48) • 

Digital Autopilot RCS Routines (DPRC) 

This writeup contains those computations performed for the service 
module RCS (Reaction Control System) DAP. The jet selection logic 
(with the effect of jet failure information) and the processing of 
manual controller information is also shown. 

Digital Autopilot TVC Routines (DPTV) 

This writeup contains those computations associated with the 
TVC (Thrust Vector Control) DAP, used with the SPS engine. This 
includes the computation of the trim estimation and the TVC DAP 
roll-control computations (which, of course, use the RCS jets). 

Entry Computations (EMRY) 

This writeup contains the computations performed for entry, once 
the maneuver to the entry attitude has been completed, as well as 
the entry display computations. The entry-DAP support computations 
performed at a two-second rate are also shown. 

Entry Preparation (ENTP) 

This writeup contains the computations performed when preparation 
for entry is started, including generation of displays for entry 
monitoring purposes and request for separation. 

General Program Control (GENP) 

This writeup contains those computations which have an influence 
upon the performance of the complete program. Included are the 
equations for starting accelerometer sampling, powered flight navigation 
("Average-G"), the TIME4 Interrupt control logic, fresh start and 
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restart computations, processing of a verb 37 (program change) 
input to start the new program, pre -standby and post-standby comp- 
utations, and the alarm and software restart routines. 

IMU Computations (IMUC) 

This writeup contains the computations directly associated with 
the IMU (Inertial Measurement Unit), including accelerometer sampling, 
powered flight and free-f light accelerometer and gyro compensation, 
the IMU monitoring functions performed by the TIME4 interrupt logic 
(checks for status, alarms, and gimbal lock), and the IMU mode change 
and gyro torquing routines. 

Inflight Alignment (INFA) 

This writeup contains the computations required to perform the 
various IMU alignment functions during flight, as well as the automatic 
star selection routine. Alignment prior to laimch is described in the 
Prelaunch Alignment writeup. 

Mathematical Fvinctions (MATH) 

This writeup contains the various trigonometric, logarithm, and 
square root functions that are included in the program. 

Measurement Incorporation (MEAS) 

This writeup contains the computations which are performed to update 
the state vector based on optics or VHP range measurements, the 
cislunar midcourse navigation (P23) computations, the rendezvous 
tracking data processing routine (R22), and the routine to reduce the 
W matrix to 6x6. Other navigation logic is in Orbital and Rendezvous 
Navigation. 

Minimum Kev Rendezvous (MINK) 

This writeup contains those routines associated exclusively with the 
minimum key rendezvous (automatic rendezvous) logic, including the program 
sequencing logic, the logic for W matrix automatic reinitialization, and 
the special alignment program computations. P79 logic is also shown. 

Noun Definitions (NNDF) 

This writeup contains the computations and constants directly 
associated with the decoding of the various nouns used with the display 
system. Also included in this writeup is the information reflected 
in the noun tables incorporated in the program, and a list of the 
program internal references to individual nouns . 

Optics Computations (OPTC) 

This writeup contains the computations associated with the optics 
system, including those for monitoring optics status, changing the 
position of the optics, performing optics marks and processing them, 
and computing optics pointing information. 
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Orbital Integration (ORBI) 


This writeup contains the orbital integration and related 
control (interface and driver) functions that are included in the program 
for precision (Encke) integration, and the interface and driver logic 
for conic integration (the Kepler routine is in Conic Routines). Also 
included are the routines to transfer between powered flight and free 
flight (and between free flight and powered fli^t, i.e. Average-G) 
navigation. 

Orbital and Rendezvous Navigation (ORVN) 

This writeup contains the computations associated with orbital 
navigation and rendezvous navigation (except R22 which is in Measure- 
ment Incorporation, as are some W matrix routines). Included is the 
control logic associated with the generation of displays and initialization 
of the W matrix (except for the Minimum Key Rendezvous material on 
automatic W-matrix initialization). 

Prelaiinch Alignment (PREL) 

This writeup contains the computations performed prior to laimch 
to erect the platform and, by gyrocompassing, align it to the proper 
orientation for launch. Also included is the logic for processing 
a change to the required launch azimuth (initiated by a verb 7S). The 
computations shown are provided independently of those for IMU 
calibration (in Testing Routines), even though some duplication of 
the resulting information is necessary, for convenience in description. 

Rendezvous Computations (REND) 

This writeup contains the calculations associated with the 
performance of the pre-thrust and thrusting guidance of the rendezvous 
programs (the Lambert routine itself, however, is in Conic Routines). 

The program control for these pre-thrust and thrusting programs is in 
the Burn Control writeup. 

Return to Earth Computations (RTER) 

This writeup contains the computations for the Return to Earth 
program (P37). 

Steering Computations (STER) 

This writeup contains the guidance computations associated with 
the SPS burn program (P40), some of which are also used with the RCS 
biorn program (P4l)* This includes the cross-product steering routine, 
computation of preferred IMU alignment and bum attitude, the thrust 
monitoring computations (logic based on monitor outputs is in Burn 
Control), etc. The velocity-required logic for Lambert guidance is 
in Rendezvous Computations. 
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Telemetry (TELE) 


This writeup contains the computations performed when a telemetry 
interrupt is received, and the logic associated with the generation 
of the "erasable memory dump" downlist (verb 74) . Also included is a 
brief summary of the information which is telemetered. 

Testing Routines (TEST) 

This writeup contains the computations performed for checking 
the computer erasable and fixed memory (including the memory sum check): 
these are the only computer self-check computations in the program. 

Also included are the computations associated with the prelaunch 
calibration of the IMIJ that are provided in fixed memory (limited 
mainly to drift testing) . These latter computations are shown 
independently of those for prelaiinch alignment, even though some 
duplication of the resulting information is necessary, for convenience 
in description. In addition, information from an earlier program 
(Sundisk) was used to supply an indication of expected values of erasable 
memory constants and program steps to be used with the drift testing. 

Uplink Processing (UPLK) 

This writeup contains the computations performed in response to 
receipt of the special-purpose uplink/DSKY verbs (70-73), and 
the logic associated with the incorporation of a state vector update. 

Verb Definitions (VBDF) 

This writeup contains the computations associated with the 
decoding of most of the special-purpose verbs (except those in 
DPIR and UPLK). Only the initial computations performed after the 
verb is decoded are shown in this writeup (such as the setting of 
a control cell and the establishing of the job), with subsequent 
calculations given in another writeup (such as Display Computations). 
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Program Computation Flow 


Because of the nature of the Apollo Guidance Computer hardware 
(and software) design, there is no unique "flow" of computations that 
takes place. Instead, various calculations can proceed virtually 
independently of one another at different cycle rates. For some 
purposes, however, that do not require detailed simulation or under- 
standing of the computer calculations, the simplification of a 
straight-line flow can be made. The following paragraphs outline 
briefly the sequence of computations which takes place with such a 
simplification, and are intended to orient the user to some of the 
contents of this document. A review of the segment on "Summary of 
Individual Writeups" will also prove useful. 

Prelaunch 


When power is first applied to the computer, one of the early 
functions which is performed is the setting of the computer's initial 
conditions in erasable memory. This is accomplished by means of an 
input of V36E, vdiich causes the computations starting at "SLAPl", 
page GENP-8, to be entered. Following this, the various erasable 
memory presets required for the flight (such as constants stored in 
erasable memory for flexibility) can be performed either by DSKY or 
Uplink means. An uplink interrupt causes "UPRUPT", page DATA-1, to 
be entered; a main panel DSKY key depression causes "KEYRUPTl", on 
the same page, to be entered; and a navigation panel DSKY key 
depression causes "MARKRUPT", page OPTC-9, to be entered (where 
checks are first made for an optics mark or mark reject). All three 
data Inputs eventually cause "CHARIN", page DATA-2, to be established 
to process the input information. 

Following this, the IMU can be made ready for flight, making 
use of computations starting at "IMQMDN", page IMUC-3. Next, an 
input of V37 E OlE will start program 01 (POl), on page PREL-1 
("GTSCPSS"). This causes the initial conditions for the prelaunch 
erection and gyro compassing routines to be set. In addition, the 
IMU CDU's are zeroed, coarse aligned to the desired IMU angles for 
the flight, and then switched to fine align. At the end of this 
sequence, some more initial conditions are set and the program 
number on the DSKY changed to 02, whereupon "SLEEPIE" (page PREL-3) 
is entered. 

"SLEEPIE" is the standard end point for the prelaunch gyro 
compassing routine (vertical erection is performed for 64O seconds 
at the start of P02, and for 320 seconds after an azimuth change 
input). It controls a half -second waitlist call of "ALLOOP" to read 
and reset accelerometers and establish "ALFLT" (page PREL-4). Every 
five seconds, "EARTHR"*^" is entered to correct for earth rotation 
effects and initiate pulse torquing of the gyros (page PREL-6). 
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While in P02, changes to the azimuth towards which the stable 
member is being aligned (i.e. the "launch azimuth") may be achieved 
by V 78 E, which causes "AZMTHGGl", page PREL-6, to be established. 

A new launch azimuth may then be loaded. After completion of the 
routine (either by a PRO or V34E), a flag is set that is checked 
every 5 seconds in "ALFLT" . If any change in azimuth is detected, the 
Z-axis gyro is pulse torqued as specified by the angle change, and then 
the gyro compassing program is essentially reinitialized (by transfer 
to "ESTIMS", page PREL-2), although the vertical erection interval 
will be only 320 seconds instead of the 64 O seconds at the start of P02. 

Also while P02 is running, PO 3 can be initiated (the gyro- 
compassing computations continue) in order to perform an optical 
verification of azimuth. PO 3 can be entered by V 65 E, which causes 
"GCOMPVER", page PREL-7, to be established. After completion of the 
optics marks and displays, P02 again becomes displayed (by entrance 
to "GC0MP5", page PREL-9). 

Boost 


At the beginning (in "ALFLT") and end (in "SLEEPIE") of each 
half -second gyro-compassing cycle in P02 or P03, a check is made for 
liftoff by performing "CHKCOMED", page PREL-3. If the liftoff input 
channel bit indicates liftoff, or if a V 75 E (backup liftoff, performing 
"LFTFLGON", page VBDF-12) has been received, then the prelaunch cycling 
is halted and "Pll", page BOOS-1, is entered. 

"Pll" updates ephemeris time to have an origin of liftoff time 
(and zeros the computer clock), changes the program number display 
to 11, gets rid of the backup liftoff verb (or other DSKY input) 
if it is on the DSKY, initializes position and velocity based on pad 
location data, and computes an initial value for [rEFSMMA'^ , the 
reference-to-stable-member matrix. It also performs some initialization 
functions for the computation of position and velocity every two 
seconds, which is a process starting at "READACCS", page GENP-2. The 
value of liftoff time may be "updated" by using verb 70 (in P 27 , as 
described on page UPLK-IO) if desired, after Pll has been terminated 
and POO entered. 

Every two seconds during the boost phase, and whenever else 
Average-G computations are rixnning, "READACCS" is entered. This 
routine causes accelex'ometer data to be sampled (and accelerometers 
reset) via "PIPASR" (page MJC-l) . This task also causes "SERVICER" 
to be established (page GENP-4) , which checks for excessive (saturated) 
accelerometer output, compensates accelerometer data for scale factor 
and bias errors via "l/PIPA" (page IMUC-1: gyro compensation during 
powered flight is also handled there), updates position and velocity 
using "CALCRVG" (page GENP-4), and then transfers to "VHHDOT", page 
BOOS-2. "VHHDOT" computes quantities for display purposes, and 
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causes them to be displayed by noun 62 (see page MNDF-26) unless some 
other display has been specified by the crew. This two-second cycle 
continues until manual specification of another program is provided 
(by V37 means) by the crew. 

Shortly after "Pll" was first entered, the present CDU angles are 
sampled and used as the "desired" CDU angles for driving a display 
(in roll, pitch, yaw body coordinates) on the FDAI attitude error 
needles, ^tarting a desired length of time after liftoff deduced 
(the time interval is specified by an erasable memory constant), 

"ATERJOB" , page BOOS-3, begins using nominal roll rate information 
and a stored pitch polynomial to compute the desired CDU angles. 

These computations are halted a desired length of time (again 
specified by an erasable memory constant) after they were started. 

They are performed with a low "priority", meaning that they will 
be done only if no other computation (such as Average-G) must be done. 

In addition, a delay of ^ second is imposed between the end of one 
pass through these equations and the start of the next pass. 

Backup automatic steering of the Saturn using the output of the polynomial 
(with errors considered zero at initiation) can be achieved by setting 
appropriate spacecraft switches. 

Manual inputs for Saturn control can be accomplished by first 
keying in V 48 E and loading DAPDATRl with 3xxxx (page DPIR-2) to 
specify the Saturn DAP configuration. By next keying in V 46 E, 
"STABLISH", page DPIR-l, is entered, which in turn causes "SATSTKON", 
page BOOS- 5 , to be entered. This in turn causes "REDOSAT" to be 
entered, which finally causes "SATSTICK" (page BOOS- 6 ) to be entered 
every 0.1 second to generate outputs based on RHC (rotational hand 
controller) settings. When "SATSTKON" is entered, flagword bits are 
set which cause "ATERJOB" to halt. 

Coast 


When it is decided that Average-G computations should be terminated 
at the end of Saturn thrusting, this can be accomplished by V37 E 
OOE, which will cause "V37", page GENP-15, to be entered. Since 
Average-G will be running, "ISITPOO", page GENP-lB, will set a flagword 
bit (bit 1 of FLAGWRDl) to 0, causing "READACCS" to set the exit from 
the Average-G equations to transfer to "AVGEND" (page GENP-3) . There, 
the state vector from the last Average-G cycle is loaded into the 
"permanent" state vector for free flight of the GSM (in "AVETOMID", 
page ORBI- 4 ) , and then, after some other settings, "CANV37"j page 
GENP-I 9 , is entered, in order to continue processing of the program 
whose number was specified by V37 input. 

The "CANV37" computations cause a master initialization routine, 
"INITSUB" (page GENP-17), to be performed to set several flagword bits 
and do other fmctions. Then, since program 00 was specified ("POO"), 
a restart group is set so that "STATINTl" will be established. 

Restart groups are a software design feature included mainly for the 
purpose of providing a capability to resume computations in the event 
of a transient difficulty such as a power glitch, but they also can be 
used to achieve proper program performance control under normal 
conditions . Computations similar to those performed when the computer 
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was initialized at turn-on are then performed (via entrance to "G0PR0G2", 
page GENP-12) , and these include establishing "STATINTl" . 

"STATINTl", page ORBI-1, is the job intended to keep the GSM state 
vector from becoming too "old", while minimizing the buildup of errors 
due to the computation. It is entered every 10 minutes (more precisely, 
it is entered 10 minutes after its previous pass has been completed) . 

This looping can be halted (or looping for an excessive integration 
time within the orbital integration package) and POO selected by an 
input of V96E (which sets a flagword bit checked at the start of 
"STATINTl" and also in "TESTLOOP", page ORBI-12) . If "STATINTl" 
detects that the bit is set, it is reset and no additional ten-minute 
waitlist call is made (hence integration remains suspended \mtil do 
e.g. V37 E OOE again). 

If the flagword bit (QUITFLAG, bit 5 of FLAGWRD9) indicating a 
V96E is not set, then further checks are made before deciding to perform 
an integration. These are done by setting some flagword bits in 
"STATINTl" that are analyzed in "TESTLOOP" : these preclude starting 
an integration of the GSM state vector unless it is at least four 
"time steps" (a variable time depending on distance of vehicle from 
primary body) delayed from the present time. If integration is 
started, it will continue until the state vector is within one time 
step of the "present" time (measured at the start of "STATINTl"), but 
no integration for a fraction of a time step is done. After the 
GSM state vector has been integrated (if necessary), then the LM 
state vector is integrated to the same time as the GSM state vector, so 
as to keep the two state vectors "together". Integration of the LM 
state vector, however, is bypassed if a V44E input has set SURFFLAG, 
indicating that the LM is on the lunar surface (bit reset by V45E). 

While this integration is going on (both GSM and LM), bit 1 of 
FLAGWRD2 is set to inhibit processing of a V37 input that would 
interrupt the integration after the GSM state vector has been 
integrated, thus leaving the two state vectors out of synchronism 
with one another. Unless a V96E is provided, the ten-minute checks 
continue indefinitely, until some other program is specified. 





Uplink 

Four verbs (70 - 73) 3.re provided for loading the computer 
erasable memory with parameters from the ground via the uplink (the 
same verbs could be used for input via the DSKY, of course). These 
verbs, which are accepted only if the present program is POO, P02, or 
P20 in a non-rendezvous (i.e. tracking) mode, cause P27 to be displayed 
via computations starting on page UPIK-l. The fianction of each of the 
verbs is described starting on page UPLK-10. 

Processing of a LM or GSM state vector update is handled by 
verb 71 ( see page UPLK-ll) , with the first word in the sequence 
(after those associated with control of P27 performance) serving 
to identify not only which state vector is involved, but also 
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whether it should be considered earth-centered or moon-centered. The 
computations performed to incorporate the state vector are in "INTWAKEU", 
page UPIK-6. Since the erasable memory general purpose update verbs 
(71 and 72) include specification of absolute erasable memory cells, 
considerable flexibility in the uplink information is possible. Aside 
from some constraints on erasable memory bank changes (verb 71 only), 
no software lockouts are included, so that internal computer program 
control cells can be modified (such as flagwords). To change particular 
fla^ord bits (for addresses above 30*), however, it would be more 
satisfactory to make use of noun 07 (see page NNDF-21). Channels 
(of address 30g and below) can also use the noun, or else noun 10. 


External Delta V Burn (SPS) 

Preparations for an External Delta V burn (for which a velocity 
increment and ignition time are specified by inputs to the computer) 
can begin by the performance of an uplink load of the target parameters 
(and, if desired, an update of the state vector). Performance of the 
External Delta V pre-thrust program (P30) is then started by input of 
737 E 30 E, causing "P3O", page BURN-1, to be entered. There, after 
setting two program control flagword bits (associated with P20), a 
display of ignition time is produced. This display is generated in the 
program by loading the accumulator with the proper bit pattern for vfrb 
06 and noun 33 (bits 14-8 contain the verb and bits 7-1 the noun), and 
then transferring to display interface routine "VNFLASH" . This routine 
(page DINT -6) sets a flagbit indicating that it was entered (for use in 
processing the response), retains information on the verb and noun desired, 
and eventually progresses to "MAKEPLAY" (page DINT-7), where the actual 
display generation functions are initiated. Return is not made to the 
computations on BURN-1 until a suitable response to the display is provided. 

The "MAKEPLAY" computations cause internal communication cells to be 
set for generation of the information required by the verb-noun pattern: 
verb 06 means display in decimal and noun 33 (ps^ge NNDF-22) references 
T^ , the ignition time. After the display is produced ("HMSOUT", page 

NNDF-3, is entered due to noun table information, causing "DSPDECWD", 
page DATA -25, to load DSPTAB cells via "DSPIN", page DATA -27, for subsequent 
loading, once every 40 ms, in "DSPOUTSB", page GENP-7, into hardware 
output channel 10), the job is suspended ("put to sleep") in "ENDIDLE", 
page DINT-I6, awaiting a crew response. 

In general, responses to flashing displays are implemented in the 
program as a return to one of three addresses depending on the nature of 
the response. These are referred to as "terminate" (a crew input of V34E), 
"proceed" (a crew input of V33E or depression of the PRO DSKY button), or 
"otherwise". The "otherwise" return can be caused by a variety of DSKY 
inputs, although in general only one of them would be appropriate to the 
display presented: these include completion of a data entry, input of 
a recycle verb (V32E), or inputs of verbs 50, 51, 53, 59, 97, or 99. 

It should be recognized that the "otherwise" term is a document convention 
(in this document), and does not signify, for example, some sort of 
continuous program looping until a proceed/terminate response is given. 
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The various DSKY responses all exit to "RECALTST" (page DATA-33), 
where the job previously put to sleep is awakened. It starts executing 
at "IDLERETl", page DINT-16, where a check is made that if a data load 
verb was received, then the accompanying noun was what was requested 
originally: if not, the original display is regenerated. Following 
this, logic in "ENDRET", for the "VNFLASH" entrance (which set the VNFLAG 
bit), determines on DINT-18 where the return should go. A terminate 
transfers directly to "GOTOPOOH" (without returning to the caller) , a 
proceed transfers to calling address +1, and an "otherwise" to calling 
address -1 (to pick up verb/noun pattern again) . If the VNFLAG is not 
set, as true for e . g . ' "GOFLASH" (frome.g. "P76ER77", page BURN-33), then 
returns for terminate, proceed, and otherwise go to calling address +1, +2, 
and +3 respectively. For the "VNFLASH", since the terminate response is 
handled on DINT -18 rather than by the calling routine, the action for 
terminate is indicated in parentheses. The "GOTOPOOH" routine, page 
GENP-15, causes a request for a new program to be generated ("V 37 E" 
is effectively produced by the software). 


If the response was a "proceed", then the program goes on to the next 
display (noun 8l), as indicated on page BURN-1 by "proceed". The noun 81 
display process closely parallels that for noun 33: noun 81 (page NNDF-28) 
causes a display of the velocity increment in local vertical coordinates. 
It should be noted that, by convention, this information is in the DELVLVC 
erasable memory cells: no coordinate transformations are done by the DSKY 
output routines. The scale of the display is XXXX.X fps, as implemented 
by constant , page NNDF-17, with a s\aitable scaling shift. The 

terminate and "otherwise" responses cause a similar effect as for the 
first display, while "proceed" again causes computations to be started up 
on page BURN-1. 


Following a proceed response to the second display, the XDELVFLG 
bit is set 1, indicating that an External Delta V burn has been targeted. 
After this setting has been accomplished, a P20 control bit (used to control 
updates) is reset and then the GSM state vector integrated to the input 
(noun 33) ignition time via integration driver routine "CSMPREC", page 
ORBI-2, entered with desired time in T, , and exiting with position 
vector in and velocity vector in This information is used to 

retain the state vector at ignition for use by "S40.1" (page STER-l), and 
also to compute the apocenter and pericenter altitudes expected after the 
burn for display by noun- 42 (page NNDF-23). Following the response to this 
display, a display of N45 (number of marks, time until ignition, and 
middle gimbal angle) is generated: the middle gimbal angle is set to 
-0.02 (by convention) if the orientation of the IMU is not known, and is 
computed in "GET+MGA" (page DiSP-l) of the IMU orientation is known. 

The N45 display uses a verb l6 instead of a verb 06: this means a 
monitoring function, giving an update (with new data if available) due 
to entrance to "MONDO" (page DATA -23) once a second from logic in 
"MONREQ" (same page). The middle register of N45 (R2) has data that 
is updated once a second also, namely T , computed as (T - T. ) 
by "CLOKTASK" (page BURN-28). After a p8§°response to the display, 
the "GOTOPOOH" routine, page GENP-15, is entered to request a new program 
as described previously for V34E responses to the display. Although 
there is no lockout requiring P30 to be performed prior to the burn 
program, subsequent computations make use of quantities computed in 
P 30 (before the N42 display), so P 30 should not be bypassed. 
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Assuming the IMU is on and aligned satisfactorily, after P30 the 
DAP parameters can be loaded via RO3 (Routine 03), which is initiated 
by V48E (entering "DAPDISP", page DPIR-2). After loading the 
components of a particular noun, the calculations to incorporate this 
data in the parameters actually employed in the DAP are made. It 
should be noted that changes in the input masses of GSM (or LM, if 
LM is indicated as being attached) will not have an effect on the 
vehicle mass properties (moments of inertia and total vehicle weight 
used in estimating acceleration in the P40/P4I programs) unless a 
specification of the RCS DAP (LM-off or LM-on) is made in RO3. RO3 
should be completed before P40 is selected, since some of the parameters 
loaded (trim estimates as well as vehicle weight) in RO3 are used in the 
P40 computations. 

Assuming the SPS burn program (P40) is desired, input of V37 E 40 E 
will cause the computations at "P4OCSM", page BURN-24, to be entered. 
There, after doing some initialization and checking that the IMU is 
aligned (via ''R02B0TH", page IMUC-l), routine "S4O.I", page STER-1, is 
entered to rotate the velocity change input data (computed by P30) by 
half the estimated central angle of travel during the maneuver, and to 
compute for optional display the velocity change information in local 
vertical coordinates (via "GET.LVC", page DISP-l) . 

The "S40.I" routine exits to "340.2,3" (page STER-2), which loads 
cells for the initial attitude required for the burn, as well as computes 
and loads a "preferred IMU orientation" (which makes gimbal angles read 
zero at ignition, and hence includes the effect of the pitch and yaw 
trims entered in Routine 03 ). This routine exits to "P4OSXTY", page 
BURN-24, where a bit is set indicating that a preferred IMU orientation 
is available (for use in P52/P54 to generate the initial option code 
display) . Then, after specifying that the maneuver should be of a 
"VECPOINT" (as opposed to 3-axis) type, "R6OCSM" (page ATTM-2) is entered 
to perform the maneuver to the ignition attitude. P52 or P54 could be 
selected at this point to realign the IMU if desired. If one of these 
programs is entered (by V37 means), of course, it would be necessary to 
reselect P40 again. 

Completion of the attitude maneuver routine causes a checklist 
code 0204 q display to be produced, requesting a decision as to whether 
an SPS engine gimbal drive test should be done (PRO) or bypassed (ENTR). 
Response to this flash causes "S4O.6" (page DPIR-4) to be entered to 

disable optics driving (since same computer counter cells used to control 

position of SPS engine bell) and to set the SPS engine to its trim 

value in pitch and yaw (as was specified by RO3) after doing, if 

specified, the gimbal trim test. After completion of this routine, an 
interface cell is set causing "CLOKTASK" (which was started at the start 
of P40 for optional display) to establish "CLOCKJOB" which in turn 
displays non-flashing VO6N4O that is updated once a second (by the 
"CLOCKJOB" computations) with time from ignition. Then the "MIDTOAVl" 
computations (page ORBI-5) are entered to integrate the state vector to 
- 29.96 seconds, the time when Average-G cycling is to be started. 

If the integration is not completed at least 12.5 seconds before the 
Average-G cycling is to be started, then an alarm is generated (pattern 
17030/ and ignition time is automatically slipped to 29.96 seconds from 
the time to which the state vector has been integrated (no crew response 
is required for this to occur). 
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Five seconds before Average-G is to be started, i.e. at T-3A*96 
seconds, the DSKY is blanked (except for the program number) due to 
"TIGBLNK" (page BURN-26) establishing "P4OBLNKR" (page BURN -26 ) . 

Five to six seconds later, depending on the phasing of "CLOKTASK" 
with respect to the "countdown" to ignition, the VO6N4O display is 
restored again via "TIGAVBG" (page BURN-26), vAiich sets NVWORDl to the 
‘ desired verb-noun pattern (causing "CLOKTASK" to establish "CLOCKJOB"). 

Five seconds before nominal ignition, NVWORDl is set to - 400^ in 
"TIG-5". The next time "CLOCKJOB" is entered (i.e. within a second), 
this negative non-zero setting will cause "CLOCPLAY" to be entered. 

This routine sets several display interface routine control bits, 
including the "BURNREQ" bit. When "NV5ODSP" (page DINT-I3 ) detects 
these bits, it causes a verb 99 to be placed on the DSKY to write over 
the original verb 06 used to ge‘nerate a decimal display. This verb 
99 permits an ENTR response to go to the "otherwise" return (via 
"GOLOADLV", page VBDF-8, per page VBDF-22): this response means that 
no SPS burn is desired, but post-burn display information should be 
supplied. A PRO response, on the other hand, means that engine 
ignition is authorized: this causes "V99P" (page BURN-30) to be 
entered in order to ignite the engine either promptly (if nominal 
ignition time has already arrived) or, by setting a flagword bit, 
at nominal ignition time if it has not yet arrived. 

Five seconds after "TIG-5" was entered, namely at the original 
ignition time (or the time updated as a result of slipping ignition 
to complete the integration), "TIG-0" is entered (page BURN-27). 

This routine either enters "IGNITION" (same page) at once, if crew 
authorization has been received, or merely sets a bit that causes 
"V99P"-to enter "IGNITION" if authorization received after the nominal 
ignition time. The "IGNITION" routine samples the outer gimbal angle 
for roll hold in the roll TVC DAP, turns on the SPS engine, if a 
"short" burn was deduced (from a job established by "TIG-5") sets a 
waitlist task to turn off the engine, disables the RCS DAP, and then 
delays 0.4 seconds. At the end of this interval, "TVCDAPON" is caused 
to be entered in 0.01 seconds to get the TVC DAP running (as discussed 
below); 1.6 seconds later, namely at 2 seconds from ignition, the 
ullage jets are turned off (they must be initiated manually, and remain 
at whatever setting they were left when the RCS DAP was disabled, since 
the "disabling" does not affect the RCS DAP TIME6 logic (see below)) and, 
if the burn is not "short" (i.e. predicted to be more than 6 seconds), 
bit ll(STEERSW) of FLAGWRD2 is set 1 to enable steering and computation 
of time to- go. This concludes the engine ignition ooqucnco. 

After P4O returned from the R60 attitude maneuver, the exit from the 
Average-G computations (AVEGEXIT) was set to "S4O.8" (page STER-5). When 
"TIGAVBC" is entered 29.96 seconds before nominal ignition time, transfer 
is made to "PREREAD" (page GENP-l): this causes free-flight gyro bias 
compensation to be halted, clears the accelerometers, loads the Average-G 
state vector cells with information computed previously ("MIDTOAVl" results), 
and calls "READACCS" in 2 seconds (i.e. at nominal ignition - 27.96 
seconds). "READACCS" performs in the same manner as described previously 
for the Boost phase, but instead of having "SERVICER" transfer to "VHHDOT", 
it transfers to "S4O.8" (because of the AVEGEXIT setting). 
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"S40.8" (page STER-5) comprises the "guidance equations" for the 
flight. The first function that is done is the performance of "UPDATEVG" 

(page STER-4): for an External Delta V burn, that routine merely updates 

V based on the accelerometer output (DELT/REF). "S40.8" next checks 

f§r the magnitude of the accelerometer output being below a pad-load limit 
(as it would be expected to be until the engine is turned on). If it is, 
and if the STEERSW bit is zero, the computations cease (STEERSW is reset 
in e.g. "INITSUB" ) until the next two-second cycle. The program remains in 
this mode of updating V after Average-G until the pad-load accelerometer 
output limit is exceeded. VJhen this happens, the computer's internal estimate 
of the weight of the GSM vehicle (CSMMASS) is updated by two seconds' worth 
of nominal SPS mass flow rate, and, if STEERSW is still zero, the computations 
again cease. If a short burn is done (predicted duration in "S 4 O.I 3 ", page 
STER-7, below 6 seconds), then STEERSW will remain zeroj otherwise, it is 
set 1 in "IGNITION" 2 seconds after ignition. 

After the STEERSW bit gets set, and assuming the accelerometer output 
is sufficient, CSMMASS gets updated, a TVC DAP quantity used for trim 
estimation is reset, and, after a check for thrust in the proper direction, 
a value of T is computed. If this value (which includes an erasable 
memory constant for thrust decay effects) is at least 4 seconds, then a 
new guidance steering command, OMBGAC, is generated for use by the TVC DAP. 
When it becomes below 4 seconds, "S 4 O. 8 I", page BIJRN- 3 I, is entered. There, 
the guidance steering command is set 0 and the engine cutoff computations are 
called at the proper time . 

If "S 4 O. 8 " finds a single point below the accelerometer output threshold, 
with the STEERSW bit set, then thrust fail procedures are indicated (since 
the failure could be in the inertial sensor rather than the engine, however, 
no engine cutoff command is generated at this point). After a check for 
a bit set only for response to a fail condition, the guidance steering 
command is set 0, a DAP cell used for trim updates is zeroed, NVWORDl is 
set -0, and STEERSW is set 0. The STEERSW setting reduces "S 4 O. 8 " to the 

V (and possibly CSMMASS) update mode, while the NVWORDl = -0 setting 
causes "CLOCKJOB" (page BURN-29) to generate a similar display to that 
for engine ignition authorization, except that the verb, instead of being 
99, is now 97 (and, of course, different program branches are taken). An 
ENTR to the V9'^40 display causes the T display to be set to +59 59 
(for reasonable times from launch), the^eSgine to be shut off, the TVC DAP 
to be shut down, the RCS DAP to be started, a new "short" burn estimate 
via "S 4 O.I 3 " to be made, and finally, about 2^ seconds after the ENTR, a 
V 99 N 4 O display to appear (all this is done in "V97E", page BURN-29). The 
effect of the ENTR, therefore, co\ild be considered analogous to returning to 
the T . -5 point, although of course the RCS DAP attitiide hold reference 
probably would be different from that left by R 60 . If a PRO response is 
provided (indicating that the engine is on), then "V97P" is entered: this 
resets STEERSW back to 1 and sets bit 6 of FLAGWRDl to 1 for 2 seconds to 
inhibit the "S 4 O. 8 " failure action. A V34E response to the V97 causes 

engine shutdown, followed by startup of the RCS DAP and entrance to "GOTOPOOH" . 
It should be noted that a crew response to the V97 flash is necessary before 
any action is taken by the software to shut down the engine or disable the 
TVC DAP (the software does, however, zero guidance steering commands and 
disable trim updates by the DAP) . 
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The normal engine cutoff routine is "ENGINOFF" (page BURN-31), 
which shuts off the engine, waits 2^ seconds, starts up the RCS DAP 
(after a time delay to avoid interference with TVC DAP shutdown), and 
finally establishes "POSTBURN" (page BURN-32) to provide a VI6N4O display. 
After a PRO response to this display, AVBGEXIT is loaded with "CALCN85" 

(page DISP-2), which likewise enters "UPDATEVG" but which then transforms 
the velocity-to-be-gained information into RCS control coordinates (rotated 
7p degrees from body axes) via "S41.1" (page STER-8) . This information is 
used to drive a VI6N85 display initiated by "TIGNOW" (page BURN-32). After 
a response to this display, "GOTOPOOH" is entered (which, via "INITSUBA.", 
restores the RCS DAP deadband to the value last specified by the crew), 
thus ending the External Delta V sequence . 

External Delta V Burn (RCS) 

The initial preparations for an External Delta V burn using the 
RCS instead of SPS propulsion system can follow the same procedures as 
described for the SPS burn, since selection of a propulsion system is 
not made until the burn program is chosen. Following P30, input of 
V37 E 41 E will cause the computations at "P4ICSM", page BURN-32, to be 
entered. There, after doing some initialization, "P4OS/F", page BURN-24, 
is entered in order to take advantage of the similarity between the P40 
and P4I burn initialization computations. Following return from the 
maneuver routine, the P4I sequence starts a display of the velo city-to-be - 
gained in RCS control coordina-tes, using VO6N85. This display is initialized 
in "P4OSXTY", and is updated once a second (by "CLOKTASK" establishing^ 
"DYNDISP", page BURN-28). Following this, the "MIDTOAVl" routine is 
entered to request the state vector at 29.96 seconds before ignition, with 
return options as for the SPS case, and the DSKY is blanked by "TIGBLNK" 

5 seconds before Average-G turn-on, again as for the SPS case. 

When "TIGAVEG" (page BURN-26) is entered to start Average-G at 
29.96 seconds before the nominal ignition time, a check is made to conclude 
that P4I (as opposed to PI5 or P40) is rimning. If it is, the DSKY display 
is made VI6N85, and "TTG/O" is called at the nominal ignition time. The 
updating of the N85 information by "DYNDISP" is no longer done, since the 
updates are now based on the exit of Average-G to "CALCN85" (set in "P4OSXTY" 
after return from R60) which, as discussed for this computation in the final 
P40 display, does its own coordinate transformation (as well as entering 
"UPDATEVG" to update velocity-to -be -gained based on accelerometer outputs). 
The only functions of "TTG/O" (page BURN-33) are to establish "TIGNOW" 

(page BURN-32), causing the 716^185 display to flash, and to disable the 
cycling of "CLOKTASK" by setting a flagword bit to 0. Termination of the 
display (by a terminate or PRO response) causes the "GOTOPOOH" routine to 
be entered (as in the P40 case). 

Monitoring of thrust applied, with Average-G rimning, can also be 
done in P47, which starts at "P47CSM", page BURN-33. There, after checking 
for IMU alignment ("R02B0TH"), routine "MIDT0AV2", page ORBI-6, is entered. 
This routine performs computations similar to "MIDTOAVl" (described for 
the SPS case), except that it uses the "ignition slipped" logic, requesting 
for each orbital integration time step an integration to 12.5 seconds after 
the present time, and halting (in general) when the given time step 
successfully completes the integration. This effectively permits Average-G 
to be turned on "as soon as practical" after entrance to P47. "TIGON", 
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page BURN-33, is called to start Average-G, to set the Average-G exit to 
"CALCN83", and to generate in "P47BODY" (page BURN-33) a VI6N83 display 
of velocity change. "CALCN83", page DISP-1, updates the velocity change 
(converting it into RCS control coordinates for the N83 display), and also 
computes the quantities displayed by N62 (for optional crew observation of 
them by a manual DSKY input): these quantities are the same as those 
supplied by the Pll Boost program, except the altitude base can be the 
landing site (for moon-centered computations). 

Rendezvous Targeting 

Instead of having a fixed externally provided velocity change to be 
achieved by a burn, as is the case for P30, a capability is also provided 
to have the burn program parameters determined internally in order to 
achieve rendezvous. A capability also exists to perform targeting for the 
"other vehicle" (i.e. LM) by input of program P7x (x = 2-5) rather than P3x. 

The various rendezvous programs can each be sequenced manually, or an 
automatic sequence, reducing the number of crew keystrokes required, can be 
performed. 

If a manual input of V37 E 3x E is made (x = 1-6), or if P79 is keyed 
in, from a "base configuration" of no rendezvous programs running (e.g. 
from poo), and if the REFSMFLG is set (IMU orientation known), then 
"V37" (page GENP-I5) exits to "REND3OS", page MINK-1. There, an initiation 
of the P20 program is performed by setting the AUTOSEQ bit = 1, entering 
"AUTOSET" (page MINK -2), transferring to "AUT037" to complete the processing 
normally done for a V37 (page GENP-I6), and finally starting at "PR0G20", 
page ORVN-1. There, since the AUTOSEQ bit is 1, displays are suppressed 
and "NDUTINPT", page ORW-3, transfers to "AUTOCHK", page MINK-1. There, 
since AUTOSEQ bit is 1, transfer is made to the address in AUTPOINT, which 
"AUTOSET" had retained as the return address to "REND3OS" . Hence "AUTO37" 
is again entered, this time with the desired program equal to TEMPMM, i.e. 
in range of 81-86 (due to the start of "REND3OS"). If P79, that number used. 

"AUTO37" again performs the standard V37 processing, this time with P79 or 
the program number of 81-86. The table on page GENP-39 shows that in this 
case transfer is made to these program starting points ("Pxy"), all of which 
are in the Minimum Key Rendezvous writeup. If P3I originally keyed in, for 
example, then "P8I", page MINK -3, is entered. There, the first thing that 
is done is performance of "MINKDISP", page MINK-1, which first writes over 
the "81" of the program number with "31". Then a checklist code display 
is generated (checklist 00017 jv), requesting a decision as to whether the 
"automatic" or "manual" sequence is desired. An ENTR means the man\ial 
sequence, causing AUTOSEQ bit to be set 0 and return to "P8I" . There, via 
"AUTOSET", the P3I computations (page BURN-3) are entered. The final display 
response there (exit from "YN1645", page BURN -18) , transfers to the second 
line of "GOTOPOOH", page GENP-I5. There, a performance of "AUTOCHK", MINK-1, 
will reveal that the AUTOSEQ bit is zero and hence the V37 display is 
flashed in the same fashion as described previously for e.g. P30 termination. 

Except for P79, the other rendezvous targeting programs mentioned can 
use a similar "manual" mode of operation. P31, P32, P33, and P36 use the 
External Delta V interface with the burn programs, while the P34 and P35 
targeting programs use another interface. 
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' This other interface is employed when it is desired to arrive at a 
certain point at a certain time. One program making use of this "Lambert" 
scheme is P37, to which the complete Return to Earth Computations (starting 
on page RTER-l) writeup is devoted. These Lambert targeting programs reset 
a flagword bit (XDELVFLG) to 0 to indicate to P40/Pi+1 that a Lambert bum, 
as contrasted with External Delta V, has been targeted. As previously 
mentioned, the rendezvous programs in the BURN writeup making use of the 
Lambert capability are P34 and P35. 

The major Lambert computation package is entered via "INITVEL", page 
REND-8, which includes various scaling and other initialization functions 
before entering "LAMBERT" (page CONC-5). If a Lambert burn is specified, 
"UPDATEVG" (page STER-4) causes an accumiilation of velocity increment 
information to be maintained until the Lambert computation is complete, and 
then updates the velocity-to-be -gained vector; as for the External Delta 
V case, "S4O.8" continues to be performed for steering and T If 

"UPDATEVG" discovers that a Lambert solution has been generated (checking 
a cell that is also set negative in "P4OSXTY" for P4O/P41), then "S4O.9" 

(page STER-6) is established. This job enters "INITVEL" to do the Lambert 
calculations, and then, after correcting for earth oblateness gravity 
effects on the target (if necessary), sets the checking cell NBRCYCLS 
negative to indicate to "UPDATEVG" on its next pass that a new solution is 
available. In addition to this (comparatively slight) change in the burn 
calculations, "S40.I" must use a different procedure to calculate the required 
thrust direction for the bum: this is done in "S40.IB", page STER-1. 

The P79 computations are not actually a "targeting" set for a burn, but 
instead are employed for final phase monitoring. As previously mentioned, 
a manual input of P79 causes "P79", page MINK -3, to be entered. There, 
"STARTAUT", MINK-2, is entered to set some initial conditions before 
returning (due to AUTPOINT loading in "P79") to "P791". At this point, 
the AUTPOINT cell is set to "P79A" . As a res\ilt of this, and the setting 
of PCMANFLG to 1 at the start of "P79", the P20 computations initiated at 
"PIKUP20" (page ORVN-4) will transfer via "AUTOCHK" to "P79A" . There, the 
DSKY display of R3I is initiated, and then return made to "P20TRACK", page 
ORVN-5 . 

If, instead of an ENTR to the checklist 00017g display, a PRO response 
had been given (again considering the P3I example), then "MINKDISP" would 
have entered "STARTAUT", where after some initializations a return (via 
AUTPOINT) to "P81" would have been done. There, via "AUTOSET", the usual 
V37 program-change logic would, as in the ENTR case, have led to "P3I" with 
eventual exit to the second line of "GOTOPOOH" . This time, however, the bit 
AUTOSEQ would still be 1, so that "AUTOCHK", page MINK-1, instead of 
returning to "GOTOPOOH" for the V37 display would have transferred to the 
address specified by AUTPOINT U-e. the address loaded by "AUTOSET", the 
4th line of "P8l" on page MINK-3). Here, transfer to "BURNHOW", MINK -2, 
is done to determine the burn program to be selected. If the required 
velocity change is below 7«0 fps, then P4I is selected; otherwise, P40 is 
selected (in either case, AUTPOINT now contains the return address from 
"BURNHOW" ) . 
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Regardless of which burn program is chosen, "TIGNOW, page BURN-32, 
exits (for the nominal sequence) to the second line of "GOTOPOOH", vdiere 
again entrance to "AUTOCHK", since AUTOSEQ bit = 1, causes transfer to 
the AUTPOINT information, which by now has the address of the 5th line 
of "P8l" . This causes "AFTERBRN", MINK -6, to be entered, which saves the 
proper return address and establishes "HARTBURN" (same page). Here, 
computations are made of the proper estimate of the burn that was done: if 
it is deduced that the GSM did the burn (SPS burn or a reasonable deflection 
of the translation hand controller during Average-G, both of which set BURNFLAG), 
then the velocity increment is set 0; otherwise, it is derived depending on 
the program anticipated to have been used by the other vehicle. In any case, 

P76 is then entered ("P76ER77"> page BURN-33) to update the other vehicle's 
state vector and then, again via exit to 2nd line of "GOTOPOOH", returning 
to the AUTPOINT address (now the 6th line of "PBl"). This causes transfer 
to the second line of "P82" (page MINK -3), where an analogous sequence is 
started, this time using P32. The subsequent sequencing of the programs, 
ending with P79 (at the end of "PB5"), can be seen from the other material 
in the MINK writeup. The PBx programs are not intended for direct DSKY 
entrance, but instead represent a convenient way to make use of the V37 
processing logic: they can be considered as the "driver" for the various 
pre-thrust, thrust, and post-thrust (P76) programs, with the pointer as to 
where the present sequence has progressed being contained in the AUTPOINT 
cell. 

IMU Alignment 

IMU orientation determination is accomplished (for use of normal 
optics) by P51, which starts at "P5r', page INFA-1. After a check 
that the IMU is on (if it is not, alarm 0210^ is generated and 
"GOTOPOOH" is entered), an option is available to coarse align to 
0 for all 3 MJ gimbal angles; otherwise, routine "R53" (page OPTC-20) 
is entered twice to obtain sighting information to a pair of manually 
selected bodies (one of 37 stars stored in fixed memory, the sun, the 
earth, or the moon (positions likewise computed by CMC)): if a code 
of 00 for the "celestial body" is entered, then a unit vector is 
requested by NBB input (see "PLANET", page INFA-9). Following sighting 
of the two bodies and specification of their identification, routine 
"R54" (page INFA-13) is entered to display the difference between the 
measured angle between them and the "theoretical" angle. After a 
response to this display( indicting acceptance), the reference-to- 
stable-member matrix ( tREFSMMAXJ ) deduced from the sightings is computed 
and stored, a bit set (REFSMFIG) indicating that a known IMU alignment 
(valid [REFSMMATl ) is considered to exist, and "GOTOPOOH" is entered. 

If backup optics is used, 737 E 53 E is keyed in, which causes "P51" 
to be entered too, but which causes "P5IB" (page INFA-2) to perform 
"R56" (page OPTC-22) to obtain the sighting data instead of "R53". 

Aside from this difference , the computations associated with P51 and 
P53 are the same. 

Once the IMU has been aligned (the REFSMFIG set), then P52 
(starting at "PR0G52", page INFA-3), for use of normal optics, can be 
used to perform realignment. Four options are available for this 
program: the "preferred orientation" (computed by P40 or P41, or 
uplinked: the PFRATFIG bit is used only to generate the initial 
option code display); the "nominal orientation" (local vertical at 
a specified time); the "^FSMMAT^ orientation" (to get rid of the 
effects of uncompensated IMU drift since the previous alignment); 
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or the "landing site orientation" (tied to RLS site stored in computer, 
at a specified time). All except the third can do coarse alignment to 
the new angles (if any angle change exceeds 1 ); all then perform an 
automatic star selection ("P52C", page INFA-6) if desired and then end by 
entering "R 5 I", page INFA-11, to complete the processing of observation 
data. Instead of doing an IMJ coarse alignment, it is also possible to 
change the IMU orientation solely by gyro pulse torquing, in "GYCRS", 
page INFA-I 4 . 

"R 5 I" begins by displaying the star code selected for the first 
star: this may be changed, or some other body loaded, if desired. 

"PLANET" is then entered to compute the unit vector to this body, and then 
"R 52 " (OPTC-I 4 ) is entered. This routine performs automatic optics 
positioning (if optics in proper mode), and requests marks ^/la "R53" when 
optics first switched out of computer control. Shaft stop avoidance 
logic is included in "OPTTEST", page OPTC-1. After two bodies have been 
sighted and the "R54" display approved, gyro torquing angles are displayed 
in "R55" (page INFA-I 4 ) . If these are approved, the IMU gyros are pulse 
torqued so as to make the information now in |REFSMMATi (which was updated 
as necessary when the coarse align check of "CAL53A", page INFA-11, was 
done) indeed reflect the orientation of the IMU in inertial space. If 
the backup optics is used, V37 E 54 E is keyed in, which causes "PR0G52" to 
be entered too, but which causes "R 56 " (as in P53) rather than "R52" to be 
selected. Aside from this difference (no automatic optics pointing is 
provided since R52 is not entered), the computations associated with P 52 
and P54 are the same. 

Tracking and Rendezvous Navigation 

Considerable elaborateness is included in the program in order to 
allow tracking and, if desired, rendezvous navigation computations to be 
carried out while other computations are running. These computations are 
conducted under the auspices of program P20, which starts at "PR0G20"', page 
ORVN-l. The automatic entrance to this program for Rendezvous Targeting 
purposes (AUTOSEQ bit = l) has already been discussed. A manual selection 
(from e.g. POO) of V37 E 20 E, of course, also causes "PR0G20" to be 
entered. In this circumstance, the first display provided requests a choice 
to be made of the desired tracking option: #0 is LM with "VECPOINT" (axis) 
pointing; #1 is celestial body with "VECPOINT"; #2 is rotation about a body 
vector; #4 is LM with three-axis control; and #5 is celestial body with 
three-axis control. Following this, an N 78 display (in "DOV 6 N 78 ", page 
ORVN-l) for specification of the body axis of interest is provided, 
followed by an N79 display of the desired tracking deadband and, for #2, 
the maneuver rotation rate . This is the final display in the initialization 
sequence for options #0 or #4 (the "rendezvous tracking" options). 

Options #1, #2, and #5 are considered to be "universal tracking", as 
opposed to "rendezvous", options, and result in the setting of the UTFLAG 
(bit 9 of FLAGWRD8) . Operation in this mode of the program involves only 
special spacecraft attitude control logic, and allows some special program 
performance features (such as entrance to P27) that are excluded from the 
rendezvous mode. Hence it is important to be explicit in identifying 
which mode of operation of P20 is taking place if the performance of the 
CMC software in some circumstance is of interest. 



22 


Rev. 0 


If option #2 was specified, the next display is of VO 6 N 34 (in "P200PT"), 
to indicate the time when the maneuver is to be started. This is the final 
display in this option before entrance to "NDUTINPT" , page ORVN-3 . If option 
#1 or ^5> however, was specified then "VIN 7 ODSP", OR'VN-3, is entered so that 
the desired body can be specified via the V01N70 display (and, for the "planet" 
option of 00, the VO 6 N 88 display). Exit is then made to "NDUTINPT", where 
the UTFLA.G is fovind 1 from "P200PT" . As a result, "STATINTl" is established 
and then exit to "PIKUP20", page ORVN-A, is made. The "STATINTl" routine, 
for periodic state vector updating, is the same routine that is established 
by the V37 logic if POO is selected, and has been previously described. The 
"PIKUP20" routine, also entered due to restart group settings e.g. after 
Average-G termination, after checking flags exits (since UTFLAG = l) to 
"CALLR6X" . 


"CALLR 6 X", page ATTM-21, determines whether the option selected was 
1/5 or 2. If #1/5, exit is to "R 66 CSM", page ATTM-22, which enters 
"R 6 ICSM", page ATTM-I 4 , every half second. There, the required attitude 
to point the specified vehicle axis at the specified point is determined 
("UTAREAl", page ATTM-19, plus, for 3-axis maneuver, "UTOPT45" on ATTM-20) . 
This loop is continued until interrupted (e.g. by resetting the TRACKFLG 
bit). If, on the other hand, option #2 was chosen, then "CALLR6X" delays 
until the N34-specified time is reached, and then enters "R 67 ", page 
ATTM-22. There, the desired rate is specified and then the terminal part 
of the standard R60 automatic maneuver routine ("NEWANGL", page ATTM-ll) 
is entered. The program stays in the one-second maneuvering loop until 
some other action occurs (the "predicted time of maneuver completion" is 
set to a large number), or an update of some matrix elements is necessary 
(about once every 34 minutes). No jet "forced firing" occurs at startup. 

For the rendezvous options, after the response to the V06N79 display 
exit is to "NDUTINPT", with, however, the UTFLAG = 0. As a resialt, both 
vehicle state vectors are integrated to the present time, the "R22" 
measurement data incorporation routine is established, and "PIKUP20" is 
entered. Here, "R 6 ICSM" (ATTM-I 4 ) is entered, followed by entrance to 
the "R 52 " optics pointing routine which causes "R 6 ICSM" to be initiated 
periodically to maintain the proper vehicle attitude. 

The "R 6 ICSM" routine, page ATTM-14, enters "CRS 6 I.I", page ATTM-I 5 , 
to do the necessary computations. If it is concluded that a maneuver is 
necessary (gimbal angle change exceeds 10° or, for "VECPOINT", pointing 
angle error with respect to DAP deadband center, not present attitude, 
exceeds 10°), then exit to "STKTEST", page ATTM-I 7 , is made. There, logic 
is performed to cause an estimate of the maneuver time to be made by the 
R60 computations, and then the relative positions of the GSM and LM are 
recomputed for about 20 seconds after the end of this time interval (via 
"RCYCLR 6 I", page ATTM-18), so as to minimize the effects of relative 
geometry changes during the maneuver. If a maneuver is still indicated, 
and is appropriate (determined by other bit checks), then "R 6 ICSM" will 
cause "R 6 OCSM" to be entered to carry out the maneuver. At the end of 
the maneuver ( "ENDMANUV" ) , if both AUTOSEQ and TRACKFLG bits = 1, an exit 
from the R60 logic is made. Special restart provisions are made on ATTM-3 
("CHKLINUS"/"RELINUS") to handle the case of e.g. target program selection 
after P20 initiated (although the automatic rendezvous logic should make 
this an unlikely procedure) . 
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The optics pointing computations, "R52", start on OPTC-14. For 
the LM tracking case, "R52H" periodically enters "R6ICSM" and then "R52D" to 
update the optics pointing angles. Due to the setting of the R21MARK bit 
in "PIKUP20", optics marks can be taken at any time, causing entrance to 
"MARKRUPT", page OPTC-9, where, from "MARKDIF", optics marks are stored in 
an interface buffer, "PUTMARK", for use by R22. 

The measurement incorporation portion of P20 is "R22", which is 
established by "NDUTINPT" and which starts on page MEAS-8. Once entered, 
this job runs with priority 26^, and therefore takes precedence over the 
R52 loop that runs with priority 14g (due to "PIKUP20"). It should also 
be noted that the restart group settings (e.g. 2.7 and l.ll) for both R22 
and the "PIKUP20'' area are only priority lOg, whereas V37 processing 
establishes jobs with priority 13g ("V37XEQF, page GENP-22) . As a result, 
even though for most program changes the TRACKFLG is reset in "ROO", if 
tracking is still appropriate for the new program (such as P30 or P2l), 
the new program will be initiated, will set the TRACKFLG = 1, and will 
pause at its first display before the effect of the P20 restart groups is 
implemented. Hence when "PIKUP20", for example, checks TRACKFLG it woiild 
be 1 if the P20 computations are allowed to run in the background of the 
newly selected program. After some initial conditions, R22 enters 
"WAITONE", page MEAS-17, causing a 4 second delay in R22 performance. 

Then, if R6I is not doing a maneuver and updates are allowed, retiirn is 
to "RMDl", page MEAS-9, where the interface optics buffer "PUTMARK" 
loads is checked. If it contains mark data, it is sampled for use and 
the R22CAFI4r bit is set. This bit is employed in "MKREJECT", OPTC-11, 
to determine if optics mark processing is being carried out: if set, 
then the REJCTFIG bit, checked at the end of "REND7", is set. Hence if 
it is desired to reject an optics mark, it is necessary to do so before 
the R22 computations have processed it (assuming the mark was not so 
erroneous that the N49 excessive update display is triggered). VHF 
ranging marks are also obtained periodically in the R22 loop by "REND3", 
page MEAS-9, if authorized (V87E or "STARTAUT", page MINK-2) and if the 
estimated separation is below the 327.67 nmi interface saturation level 
(i.e. if RANGFLAG, controlled at the start of "CRS61.I", is set). 

If computations at the end of "REND7" (page MEAS-I3) conclude that 
either the position or the velocity state vector update is "excessive" 

(bigger than tolerances stored in erasable memory), then "RENDISP", page 
MEAS-I6, is entered. This routine establishes "RENDISP2" with priority 
27g (same page) to generate a priority display using V06N49 and awaits 
crew response. Thanks to the "WAITONE" logic (for optics and for radar 
except when waiting for radar sample to accumulate), it is known that the 
R60 priority display is not on the DSKI, and to avoid having it be initiated 
"RENDISP" performs a short loop checking a communication cell with "RENDISP2" 
to determine when a reply is received (and of what type-). R22 and R52 
cycling can be halted by V56E (causing "TRACKTRM" , page VBDF-9, to be 
entered) or by selection of POO. Cycling is suspended (but can be started 
up again) if the TRACKFLG =0 (e.g. entrance to a burn program). Backup 
marks can be initiated by keying V54E, causing "R23CSM", page OPTC-I3, to 
be established. If the AUTOSEQ bit is set, "REND4" (MEAS-ll) exits to 
"AUTOW" (MINK-7) to check for automatic W maj.rix initialization. 



24 


Rev. 0 


other Navigation Programs 


Another navigation program is P21 (which starts on page ORVN-5). 

This program merely gives the latitude, longitude, and altitude at a 
specified time (incremented automatically by 10 minutes if desired). 

Other quantities are also computed for optional display. A similar 
program, P29 (ORVN-20) , may be used to derive the time (after an input 
time) when the spacecraft will arrive at an input value of longitude. 

A "cisliinar midcourse navigation" program, P23, is provided which uses 
sextant trunnion angle as the sole measurement input (to measure the 
angle between a star and a known "landmark" or the horizon) . This program 
starts on page MEAS-lS, and requires a trunnion angle calibration via 
"R57" (page OPTC-23). If it is desired to incorporate a series of marks 
in this program with the option of being able to restore the unmodified 
state vector, this can be accomplished by performing V66E before the start 
of the marks (to put the GSM state vector into the "LM" cells), and then, 
after the marks, performing V47E (which moves the \inupdated "IM" cells 
back into the GSM "permanent" state vector) . 

A fourth navigation program is P22, which can be used to perform state 
vector modification based on the tracking of known or unknown landmarks 
(on earth or moon): the "landing site" vector can be selected, or a landmark 
loaded manually (only the manual option is allowed for earth) . P22 starts 

on page ORVN-7 ("PRC)G22"). After some initial presets and selection of 
sighting options, "R52" is entered to perform optics pointing to the desired 
landmark (after R52 starts, N43 could be used to change the coordinates 
towards which the optics is pointing). After completion of the mark sequence, 
"DOV 5 N 7 I" is entered (page ORVN-S) to display the landmark selection for 
crew approval, and then "S22.1", page ORVN-11, is entered to do the actuial 
processing of the observation data. The data is placed on the downlink 
^n "MARKDIF", page OPTG-IO) as it is received. 

"S22.1" performs some initialization settings, including different 
W matrix initialization for known and unknown landmarks, and then processes 
the mark data. A flagword bit is set for the processing of the first non- 
offset mark (22DSPFLG, bit 13 of FLAGMID2) that causes "S22B0X12" (page 
ORVN-I 6 ) to display via V06N49 the magnitude of the first update for 
crew approval: if it is approved, the remainder of the updates (including 
the second for that mark) are incorporated with no check on their validity 
(contrary, for example, to R22). Following the incorporation of the 
last mark, an option is provided (in "S22I=N", page ORVN-I 7 ) to update the 
landing site RLS based on the derived position of the landmark being 
tracked (which could have been specified as the serial number of 01, meaning 
RIS) . A manual input to the N89 display will not be effective in changing 
what will be loaded into RLS, since although it changes the N 89 cells, it 
does not change the vector information used to derive the RLS setting. 

Finally, the W matrix is reduced to 6x6 (landmark correlation information is 
not carried over from one landmark to the next, of course) in "9DWTO6DW" 

(page MEAS- 5 ), and then a new set of marks can be obtained. If desired, 
the W matrix values can be observed, and initialized to different values, 
by input of V67E, causing "V67GALL", page MEAS- 4 , to be entered. 
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Another program that is provided in connection with navigation is 
P24 (starting at "PRC)G24", page ORVN-19). This program provides a rate- 
aided optics drive and downlinking of the mark information as it is taken. 
A capability is also provided to update the estimate of landmark location 
used for the optics commands based on optics mark information, although 
this capability can be disabled if desired by suitable erasable memory 
initializations . 

Entry 


Input of V37 E 6 l E will permit "P 6 l" (page ENTP-l) to be 
entered. Average-G is turned on via "S 6 l.l" (page ENTP-4) which 
causes "MIDT0AV2" to be entered (the same routine as used by P47) in 
order to get the Average-G computations started (generally in 12.5 
seconds from the beginning of the last time step) . After this is 
done, the BKJ alignment is checked in "S 6 I.IA" (page ENTP-5), and 
then a N 6 I display of target parameters is supplied. Response to 
this display causes "NEWRNVN", page ENTP-l, to be entered to sample 
the state vector from the same two-second Average-G cycle (if the 
sampling is unsuccessful, the process is repeated). Routine 
"S61.2", page DISP-I 5 , is entered to compute a number of quantities 
for display purposes, including Entry Monitor System (EMS) information. 

The N 63 display (which includes time from EMS interface altitude) is 
updated every 2 seconds in "SERVICER" (page GENP-4), and is also 
corrected for the computation delay since sampling of state vectors. 

In addition, a V32E response to the display will cause the display 
parameters to be recomputed, and the N 6 O display to reappear. A 

PRO response causes "P62" to be entered. } 

"P62", page ENTP-2, can either be entered from "NEWRNVN" or can 
be selected directly by V37 means (see page GENP- 39 ). It performs 
"S 6 I.I" again (if from "NEWRNVN", Average-G is already manning), 
starts the entry DAP going ("READGYMB", page DPEN-l), and then starts 
a flash of checklist code 00041* to request separation. A PRO 
response to this display causes^"CM/DAPON" to be entered to activate 
entry DAP computations (page DPEN-l), and then "P62.1", page ENTP-3, 
to be entered. Here, after another N 6 I display of target infomnation, 
a display of entry angles (via N22) as computed by "P62.3". page ENTP-4, 
is provided (unless the trim angle already is less than 45 *^, in which 
case P 63 is entered immediately). Logic in "EXDAP", page DPEN- 11 , 
causes "WAKEP62" (page ENTP- 4 ) otheorwise to establish "P 63 ". 

"P 63 ", page ENTP-4, changes the program number display to P 63 , 
sets the verb/noun display to VO 6 N 64 (for use in "ENDEXIT", page 
ENRY- 16 ), and causes "STARTENT", page ENRY-2, to be entered. This 
routine sets some initial conditions for the entry program and then 
causes the computations to enter "SCALEPOP" (page ENRY-3) and then 
"INITROLL" (page ENRY-5). The "INITROLL" computations monitor the 
status of the bit indicating O.O 5 g (the bit is set/reset in "TARGETNG", 
entered from "SCALEPOP"), and when it first becomes one changes the 
program number display to 64 (and the verb-noun to 0674). If the 
velocity at this point is less than 27,000 fps (K „ ,), the exit address 
from "SCALEPOP" is set to "KEP2" (page ENRY-12) : ?nis causes exit to 
P 67 (via "PREFINAL", page ENRY-12) when the drag exceeds 6.5 fps^. 

If velocity is above 27,000 fps, then a more complete set of entry 
computations can be done (the setting of INRLSW keeps the 27,000 fps 
check from being perfoomied more than once). 
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"PREDICT3", page ENRY-I3, is the "filial phase" of the entry- 
computations, and is entered until the velocity is below 1000 fps, 
when "P67.I" (page ENRY-I6) is entered instead to display VI6N67 
(computed by "P67.2", same page) until a response is received, -when 
the "GOTOPOOH" routine is entered to stop the computations. 

Digital Autopilots 

Four distinct digital autopilots are included in the computer 
program: the Saturn DAP (mentioned in the Boost phase discussion, 
and used only to generate outputs based on hand-controller 
deflections); the RCS DAP (used for free-f light GSM control); the 
TVC DAP (used for SPS thrusting, and including a roll control section 
using RCS jets); and the Entry DAP. A capability also exists to 
"turn off" all DAP's; by performing routine RO3 (V48E, causing 
"DAPDISP", page DPIR-2, to be entered) followed by V46E (causing 
entrance -to "STABLISH", page DPIR-l), manual initiation of the Saturn, 
RCS, or no DAP can be accomplished. 

RCS DAP operation is started by verb 46, as mentioned, which causes 
"STABLISH" to perform "RCSDAPON" (page DPRC-l) . This routine sets 
T5L0C (the address to which transfer is made when computer clock 
TIME5 overflows) to "RCSATT", and causes TIME5 to overflow in 0.6 
seconds. When the clock overflows, "RCSATT", page DPRC-l, is entered. 
There, provided that G&N control of the spacecraft is set, the DAP is 
initialized (via "REDAP", page DPRC-4) . This includes initialization 
of the Kalman filter used for determination of the spacecraft attitude 
rate: while this initialization is taking place (about 1.1 seconds to 
obtain the necessary ten first-differences of CDU angles), no jets 
are fired, not even those which might be commanded by manual inputs 
(such as the translational controller). The complete DAP "computation 
cycle" is 0.1 seconds, and involves the sequence shown on page DPRC-31. 
Every other pass through the DAP (or every 200 ms), the attitude error 
needles on the FDAI are updated (using computations performed in 
"KMATRIX", page DPRC-3) based either on internal DAP-generated error 
signals or on the difference between the "desired" attitude and the 
present CDU angles. Selection of the type of display, and its 
optional initialization to present attitude, is made by verbs 6O-63. 
Automatic operation for the performance of attitude maneuvers, also 
used for performance of rotational commands (in "T5PHASE2", page 
DPRC-6, logic), is controlled by the quantity HOLDFLAG, described on 
page DPIR-14. The selection of the jets to be -used, and the 
checks for translation inputs, is made starting at "JETSLECT", page 
DPRC-12, and includes compensation for jet failures that have been 
reported via RO3 (see pages DPIR-2B and DPIR-29). Actual control 
of the jet on-time is accomplished by "T6START", page DPRC-22. 

Transition from the RCS DAP to the TVC DAP is handled by the 
program, and cannot be accomplished maniially. As mentioned in the 
discussion of the SPS b\im program, the generation of translation- 
control Inputs to the computer for ^lllage generation must be done by 
the crew. When "IGNITION" (page BURN-27) is entered to turn on the SPS 
engine, it halts the prformance of the RCS DAP (by setting T5LOC 
to an idling location). O.4 seconds later, T5L0C is set to "TVCDAPON", 
with an associated delay of 0.01 seconds. Consequently, O.41 seconds 
after ignition "TVCDAPON", page DPTV-1, will be entered. This routine 
sets a number of DAP cells zero, and causes "TVCINITl", page DPTV-1, 
to be entered 0.01 seconds later. There, other non-zero initial 


conditions are set, and "MASSPROP", page DPIR-9, is entered to compute 
mass properties of vehicle (in "FIXCW", same page) after initializing 
cells for "FIXCW" that remain imdisturbed during the TVC DAP operation 

(hence, to save execution time, "FIXCW" is entered during bum to ) 

update vehicle mass properties) . "TVCINITl" exits to "TVCINIT4" 

(page DPTV-3), which calls "TVCEXEC'in 0.51 seconds, or about 0.93 
seconds after ignition, and also causes "DAPINIT" , page DPTV-3, to be 
entered a DAP half -cycle later (for LM-off, 20 ms; for LM-on, 

40ms) . 

"DAPINIT" samples CDU and CDU for use in forming the past 
values of these quantities^(to obtain in turn rate information), and 
sets T5L0C to "PITCHDAP" with a corresponding delay of a DAP cycle 
(for LM-off, 40 ms, bringing the total time since ignition to about 
0.48 seconds). "PITCHDAP", page DPTV-6, calls (via T5L0C setting) 

"YAWDAP" (page DPTV-8) in a DAP half -cycle; "YAWDAP", in turn, 
causes "PITCHDAP" to be entered in a DAP half -cycle: for LM-off, this 
causes SPS actuator output information to be updated every 40 ms. 

Guidance commands start the first entrance to "S40.G" after STEEJRSW = 1 
(setting to 1 done 2 seconds after ignition, if a "long" bum). 

"TVCEXEC", page DPTV-4, is entered (due to "TVCINIT4" waitlist 
setting) for the first time at about 0.93 seconds after ignition. 

Here, a roll attitude error is computed and the FDAI error display is 
updated. Every 10 seconds, "FIXCW" is entered to update the vehicle 
mass-properties related information (see CSMMASS on page DPIR-11 for 
the updating history of the cell used as the independent variable for 
these computations). Provision is made for updating the pitch and 

yaw trim estimation after a suitable time interval has elapsed (for LM-on, \ 

no time delay is imposed before the first correction) . In addition, J 

every 0.5 second ("TVCEXEC" keeps calling itself at that rate until the 

TVC DAP is halted), 0.03 seconds after "TVCEXEC", the TVC roll DAP, 

starting at "ROLLDAP" (page DPTV-ll) is entered to compute a jet 

on-time for roll attitude hold about the outer gimbal angle value sampled 

in "IGNITION" . Contrary to the RCS DAP, no jet failure information is 

used; instead, quads are alternated separately for both positive 

and negative torques. 

When the engine cutoff command is generated, "SPSOFF", page 
DPIR-4, is entered to turn off the engine. In addition, new trim values, 
if appropriate, are also loaded. For the normal cutoff via "MGINOFF" 

(page BURN-31), "RCSDAPON"- is entered 2.5 seconds later, causing "RCSATT" 
to be entered 0.6 seconds later to start the RCS DAP as described 
previously. If "S4O.8" detects a thrust failure, trim updates are 
halted (and mass updates there while the indicated failure persists), 
but it is not imtil a req^onse to the V97 display in "CLOCKJOB" is 
received that there is a possibility of having the software cut off the 
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engine and TVC DAP (barring some phenomena as a fresh start, of course) 

As mentioned with the Entry phase, entrance to P 62 starts 
the performance of the gimbal angle sampling for the entry DAP; after 
crew response to the request for separation confirmation, "CM/DAPON", 
page DPEN-1, is entered to disable the RCS DAP (by setting T5L0C to 
"T 5 IDLOC" , page DPIR-l) and to set some initial conditions and 
flagword bits to permit "READGIMB", which is performed as a waitlist 
task every 0.1 second, to continue on to "BODYRATE", page DPEN-3. 

There, T5L0C is set to "ATTRATES" (page DPEN— 4) with a corresponding 
delay of 0.01 second. In "ATTRATES", a check is made of the entry 
guidance bit i^icating 0.05g's. If drag is below this level, "EXDAP", 
page DPEN— 11, is entered; if above it, then pitch and yaw rate damping 
is performed and channel 5 loaded appropriately. 

If "READACCS" (page GENP-2) senses that the entry DAP is active, 
it saves some angles computed by "READGYMB" and "ATTRATES", and sets 
a waitlist call for -'SETJTAG" (page DPIR-l) to set a quantity positive 
non-zero. This setting, which occurs once every 2 seconds, causes 
"EXDAPIN" (page DPEN-5) to continue with computations leading to a 
strategy for firing roll jets. The appropriate pattern is loaded 
into channel 6 in "JETCALL2" (page DPEN-10), and waitlist calls are 
set for replacement of the pattern (if necessary). Checks are made 
in "GET0N2", page DPEN-7, that the sum of the waitlist-call times 
will not exceed 2 seconds. Following this, "CM/FDAIR" (page DPEN-10) 
is entered to display errors on the FDAI or to save quantities for 
downlink transmission (if the "SETJTAG" task is not done, then 
"CM/FDAIR" is entered directly from "EXDAPIN"). 

Telemetiry 

Every 20 ms (nominally, for the high bit rate), a signal is 
received from the telemetry system which caxises "DODOWNTM", page 
TELE-1, to be entered. Five telemetry lists, plus a "dump" of all 
cells in erasable memory, can be sent, as described on pages 
TELE -9 through TELE- 36 . Most changes to the selection of the 
downlist sent are made as part of the V37 sequence (programs with 
their downlists are given on page GENP- 39 ), although changes 
also take place elsewhere (such as at the end of "NEWRNVN" for 
the transition from P 6 I to P62, at the start of "Pll", and in "V 73 UPDAT" 
page UPLK-1, for uplink verbs causing P27). 
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Notation and Terminology 


Because of some of the special design features of the Apollo 
Guidance Computer, a set of special notation and terminology has been 
found useful in describing the equations programmed for this computer. 
In most cases, this notation and terminology follows that which seems 
to be employed by the G&N contractor, and also follows that which was 
used in documents previously prepared on Block 1 and Block 2 programs. 

The following document may be found useful for supplemental 
information on the symbolic listing, and for a more detailed 
discussion of the computer hardware and general computer system 
control: 

3A.20.5~27, Revision 2, "Apollo Guidance Program Symbolic Listing 
Information for Block 2," dated 20 November 1969 . 
Referenced here as merely "3420.5-27". 


Copies of that document, together with revision information as it is 
published, may be obtained from the Flight Software Branch of MSC. 


Numbers 


A General 

The guidance computer is designed with a memory word length of 
15 bits (plus a sixteenth bit, not sensed by the program, used to 
achieve "odd parity", i.e. an odd number of binary ones in the total 
l 6 -bit word). It is also designed as a fractional machine, so that 
all numbers in the computer are less than one: "true values" greater 
than 1;0 are accommodated by suitable scaling, as described below. 

There is no hardware floating point capability in the computer, 
although a facsimile to floating point computations is sometimes 
used (and identified as "quasi-floating point") in the program, 
particularly when the quantities involved can have a large dynamic 
range . 

The 15-bit word is divided into a sign bit and 14 magnitude bits, 
with the bits numbered from the sign (# 15 ) to the least significant 
magnitude bit (# 1 ), as shown: 

Value: Sign 2~1 2~^ 2 “^ 2 “^ 2~5 2 “^ 2~'^ 2“® 2~^ 2“^*^ 2~^^ 2“^^ 2~^^ 2~^ 

Number: 15 14 13 ^ U 10 9 8 7 6 5 4 3 2 1 

Once the value of a number in the computer register (evaluated using 
the bit weights .shown) has been determined, its "true value" may be 
determined by multiplying this value by some power of two which is 
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called the ’’scale factor”: 


The scale factor of a quantity is the power of two by which 
the number in the computer (considered as a fraction in 
the range between -1 and +l) must be multiplied to obtain 
its true value. For convenience^ the scale factor is shorn 
as where ”xx” is some positive or negative integer. 

For example, if a word has a scale factor BI/ 4 ., this means that the 
individual bits have a weight 2^ (or I 6384 ) times the values shown 
in the above table . A counter in the program with this scale factor, 
therefore, would have its least significant magnitude bit (or least 
increment) equal to 1 (2"^ x 2^ == l) . See Appendix A of 3420.5-27 
for more details. 


In many instances, the word length of 15 bits, permitting a 
number to be expressed to 1: ± I 6384 , is insufficient to give the 
required precision in the computations. In these instances, a double 
precision number (stored in two consecutive memory cells) is used. 
Scale factor information for double precision numbers has the same 
interpretation as for single precision numbers, and the least 
significant half of the word has weights that are 2““1^ times the 
weights shown above. A quantity that is double precision with a scale 
factor of B28, for example, would have a least significant bit of 1 
and a maximum value of { 2 ^^ - l), or 268 435 455. In a few cases 
(usually involving tijne information), triple precision quantities are 
required, which follow similar rules. , 


In general, unless otherwise specified words can be considered 
to be double precision. The following subscripts are used in the 
programmed equations to indicate the type of number involved, in cases 
where this information is needed: 


dp: Double precision. 

sp: Single precision. 

tp: Triple precision. 

vn: Verb-noun pattern (for DSKY display): first two digits 
are the verb (bits 14-8 of the word) and last two 
digits are the noun (bits 7-1 of the word). 

X, y, z: Vector components. 

0, 1, 2 (on vector variables): Vector components, different 
significance than x, y, z. For example, x, y, z might 
refer to IMU coordinates and 0, 1, 2 to body (roll, pitch, 
yaw) coordinates. Not used with TS. 

2 (on numbers): Binary value. 


8 (on numbers): Octal value. 


Numbers with no subscript are quoted in decimal. 
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In addition to the scale factor information, it is necessary to 
know the units in which quantities are expressed. Times are usually 
in units of "centi-seconds" (O.Ol seconds). Powered flight navigation 
equations give position in units of meters and velocity in units of 
meters/centi-second. Angles are usually expressed in units of 
revolutions (one revolution is 360°). Where not reasonably obvious, 
units for the quantities are given as part of their definition. 


B Constants 

Fixed scalar constants are denoted by Kj, where j is a subscript 
of arbitrary type (lower case letters and/or numbers) selected for 
its mnemonic usefulness (generally similar to the program notation 
itself). An additional subscript in capital letters may also appear: 
this quantity is a variable, and is used for indexing purposes. 

Constants stored in erasable memory (so they can be changed 
without hardware implications) are denoted by C^, where j is again 
a subscript of arbitrary type. If an initial condition is necessary 
for some cell, but it is subsequently updated by the program, the 
quantity is given the designation of a variable . 

For the comparatively few constants which are vectors (or which 
can be treated as vectors, such as the IMU calibration constants), 
the notation employed is an underline under the K or C (i.e. K. or 
C_. ) except in a few cases where mnemonic usefulness dictated s^me 
other presentation (such as unitX for a unit vector in the X direction). 
Matrices are designated by their program notation, enclosed in square 
brackets (no special notation is used to distinguish between matrices 
which are constants and those which are stored in erasable memory) . 


C Variables 

Variables are generally designated by several upper case capital 
letters, sometimes with subscripts (the single letters K and C, however, 
are reserved for constants). Lower case letters sometimes appear with 
the symbol for a variable, and have the following special meanings: 

d: A division indication appears as part of the symbol in 
the program (LdD appears in the listing as L/D). 

i: A suitable capital letter is substituted as defined in 
the related equation information for "i''("j" also used). 

m: A minus sign appears as part of the symbol in the program 
(mTPEE appears in the listing as -TPER) . 

p: A plus sign appears as part of the symbol in the program 
(pMGA appears in the listing as +MGA). If two "p" letters 
are in the symbol, these signify parentheses in the symbol 
in the listing. 
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An underline of the final character of a syinbol means a quantity 
with several components, frequently a vector but sometimes a quantity 
having vector-type properties, such as gyro compensation about 
different axes. Individual components of a vector are identified by 
a final subscript quantity (an additional subscript level or separated 
by a comma from the other subscript information) using the same symbol 
as for the vector, but without the underline: TS^, for example, would 
be the X component of the vector TS. 

A variable sometimes is used as a subscript itself, in which case 
it performs an indexing or address specification function. The capital 
letter E with such a subscript means the contents of the (generally 
erasable memory) cell whose address is given by the contents of the 
cell with the indicated symbol: E,po, for example, is identical to 
VAR if TS contains the address of VAR. This notation, of course, 
signifies use of indirect addressing. 

Matrices are designated by enclosing their identifications in 
square bractets. The matrix may have its own special symbol (such 
as jREFSMMA.T] ) , or it may be designated by the symbol of its first 
vector component (the first row of the matrix), but without the 
underline; [Xgjj[] is the matrix composed of X , Y , and Z . 

Some special notation for the W matrix infomation” to perSt more 
convenient comparisons with official guidance equation infoimation 
is described on pages MEAS-37 and MEAS-SS, ’ 

Interpretive languap operations in the guidance computer (see 
3420 . 5 — 27 ) permit convenient manipulations to be performed on 3x3 
matrices, the elements of which are each stored double precision 
in sequential erasable memory cells (all elements of first row, then 
second row, and then third row) . Individual elements of a matrix are 
designated by the matrix symbol followed by a subscript between 0 
and 8: REFSMMA^, for example, is the first element in the second 
row of (^FSMMA.'^ ; REFSMMAT_ would be the vector formed of (REFSMMAT , 
R^SMiyLAT and REFSMMAT ), i.e. the second row of IreFSMMA'^ (which^ 
gives the stable member^Y axis in reference coordinates). The program 
notation for REFSMMAT would be "REFSMMAT +6", since elements are 
stored double precision with the most significant half of REFSMMAT 
at address "REFSMMAT". 0 


D Addresses 

The value of an address is designated by the symbol used in the 
program, enclosed in quotation marks: without the quotation marks, the 
contents of the cell with that symbol would be indicated. In order 
to improve the clarity of the presentation, many of the program-step 
symbols are omitted from the equations, and others may not precisely 
correspond to the program step actually identified by the symbol in 
question. Computer addresses themselves must occasionally be mentioned: 
these are in CADR or 2CADR formats (single precision and double 
precision respectively, as described in 3420.5-27). Erasable and fixed 
memory CADR formats differ. 
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A number of subroutines are used within the program, each of 
which require information on the "main" program to which program 
control must be transferred at the end of the subroutine. For clarity 
in showing the computation flow, the retention of the necessary return 
address information is shown explicitly in a few places. The "return 
address" is the address to which control is to be transferred after 
completion of the subroutine; the "calling address" is the address 
from which transfer to the subroutine was made. In many cases, the 
return address can be considered to be one greater than the calling 
address (ignoring special provisions for program-step changes between 
fixed memory banks), but in some instances such as generation of 
program alarms, the cell following the calling address contains 
information pertinent to the subroutine (such as the alarm pattern), 
and therefore the return address may be several address locations 
after the calling address. To save program steps, in some cases the 
complement of the address may actually be used by the program for 
storage purposes, but this fact, since it has no effect on the computation 
flow, is not indicated in the programmed equations. 


Program Control 

There are three types of program entities that may be considered 
to take place within the program. These may be classified as: 

a) A Subroutine, which performs a certain function and then 
returns control to the program entity which called it 
(Subroutines, of course, may in turn call other Subroutines). 

b) A Task, which is a short sequence of computations 
performed based either upon a time criterion or upon some 
external signal. 

c) A Job, which is a program entity (such as a routine to 
compute a large attitude maneuver, the processing of a 
keyboard or uplink input character, or the performance of 
a Lambert routine during powered f Light guidance) of long 
duration (compared to a Task) which must be done in a 
definite sequence. For example, during powered flight the 
accelerometer data must be corrected for biases before 
the state vector updating computations are performed, and 
the state vector updated before steering commands are 
generated for the DAP (digital autopilot), and therefore 
these functions all form part of the same Job. 

Time -dependent Tasks are implemented by a "waitlist" system 
(see section VIIA of 3420.5-27), for which the programmer merely 
specifies the time delay (from "now") when he wants a computation 
done, and the starting address of that computation. This time delay 
has a least increment of one centi-second (O.Ol second). Unless 
interrupts are inhibited, a program interrupt (which can be caused by 
a signal from the telemetry system, the uplink, either of the two 
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DSKY's, completion of a radar input, two DAP waitlist-type clocks, 
the "T4RUPT" clock, or the waitlist clock for the CM) causes termination 
of the computations for the Job and performance of the Task. Tasks, 
however, are not subject to interruption by other Tasks, but instead 
continue to completion. There is also a hardware monitoring function 
which can cause a "hardware restart" that could, if necessary, interrupt 
a task: in general, however, such restarts should not be encountered. 

Jobs are sequenced with the aid of a priority system (see section 
VIIB of 3A20.5-27), and are performed only if no Tasks must be 
performed (provided that interrupts are not inhibited). If no 
"productive” computations are required, then a routine called the 
"dummy job" is performed. This routine checks periodically for the 
availability of a Job to be performed, and of course is subject to 
interruption for a Task. A Job can be "established" (put into a list 
to be selected when its priority is sufficiently high) by another Job or 
by a Task. A Job can be "put to sleep" (by temporarily setting its 
priority negative) until some event takes place; the occurrence of the 
event can "awaken" the job by setting its priority positive again. 

Jobs can optionally be assigned a set of working storage cells called 
a "VAC area" (see section VIIB of 3420.5-2?). Addresses within this 
VAC area are referred to as "relative addresses" (relative to the 
start of the area assigned to the particular job), or as "push-down 
list addresses". Address I2D, for example, would be the 12th address 
from the start of the job's VAC area (the "D" emphasizes that the nimiber 
is quoted in decimal, since octal is also used in the program) . 

The following program control terms are employed: 

Awaken a Job: Cause a Job (if any) with the indicated starting 

address to be restored to its original priority after a period 
of being "asleep", during which the performance of the Job 
was suspended by making its priority negative . 

Call "XXXX" in yy seconds: Cause a Task with starting address 
"XXXX" to be entered into the waitlist system to be 
performed in yy seconds from the present time (yy has a 
least increment of one centi-second) . 

Delay yy seconds: Cause the present string of computations to 
be suspended for yy seconds, and then restart at next line. 
Delays for a waitlist Task are implemented by a waitlist 
call to the following step, and then an End of task; delays 
for a Job are achieved by using the "DELAYJOB" routine. 

End of job: Terminate the performance of a Job, and transfer 

control to the "executive" system to initiate performance of 
the Job which has the highest priority of those remaining. 

If no Jobs are to be performed, the "dummy job" routine is 
entered . 
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End of task: Terminate performance of the waitlist-initiated 
Task, and transfer control to a routine which checks for 
other waitlist Tasks which may be due, causing resumption 
of previous computations (cf. Resume) if there are no such 
Tasks . 

Establish "XXXX": Enter a Job with starting address "XXXX" in 
the executive system priority list to be performed when 
appropriate (the priority of the Job is also indicated at 
the point where it is established). A Job can optionally 
be established with or without a working storage (VAC) area, 
but this option selection generally is omitted in the 
programmed equations information. 

If: Carry out the indicated manipulations provided that the 

indicated conditions are satisfied. Should the conditions 
not be satisfied, or after performing the indicated manipu- 
lations, continue on in sequence (unless, of course, a 
manipulation involved transfer of program control) . To avoid 
a proliferation of program tags, the manipulations are 
indicated by indentations, with if necessary additional 
indentations for additional conditions. In a few cases, 
it was necessary to continue the indentation function to the 
following page, and in such cases (such as the top of page 
ATTM-I 6 ) the most recent "If" controlling the performance of 
the routine is repeated in parentheses in order to ensure 
that proper interpretation of the information is made . 

Perform "XXXX": Cause a Subroutine with starting address "XXXX" 

to be entered . The specific memory cell to which the Subroutine 
returns control depends in some cases upon the purpose of 
the routine. May be a "Proceed to" in program listing. 

Proceed to "XXXX": Cause the program step with address "XXXX" to 
be the next one executed, and continue the performance of the 
program from that point. If no address is specified (as is 
true for some Subroutines which have multiple return addresses), 
"proceed" merely means continue with the next equation in 
sequence. May be a "Perform" in program listing. 

Proceed to address specified by XXXX: Cause the program step 
whose address is stored in cell XXXX to be the next one 
executed, and continue the performance of the program 
from that point. 

Put to sleep: Cause the present Job's computations to be suspended 
(by making its priority negative) until some event takes place 
causing the Job to be "awakened". Differs from End of job and 
Establishing the Job again in that the VAC area (and Job 
Register Set) are retained. When a Job is put to sleep, a 
starting address identification is provided for use in^ 
awakening the Job (and also to specify the starting point for 
the Job when it is performed). 
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Resume: Start performing again the computations (in a Job) that 
were interrupted to perform the Task. Used only for Tasks 
not initiated by waitlist means, cf. End of task. 

Return: Proceed to the Subroutine's calling program, from which 
transfer to the Subroutine was made via a Perform. 

In addition to the above terms, frequent use is made of special 
program control functions to accommodate crew use of the display system. 

In general, an action requested by the computer program can have three 
crew responses: a terminate verb, a proceed command (verb 33 or the PRO 
button), or a recycle verb (verb 32 )/data enter. Uses of the display 
system are buffered by the routines described in the Display Interface 
Routines writeup, such as "GOFLASH" (entered e.g. from bottom of ATTM-l). 
These routines cause the display to be activated and then put the Job to 
sleep awaiting a response . The three responses are indicated by the 
terms "terminate", "proceed", and "otherwise", and are shown as the result 
after crew response. In addition, an immediate return (such as "GOFLASHR" 
use on ATTM-l) may be available, in which case the "Perform", rather 
than "Proceed to", program control term is used. This immediate return 
may be used for restart protection and/or to set bits for blanking one 
of the display registers (or more). Finally, there are the special 
"VNFLASH"/"'VNFLASHR" interface routines, discussed earlier (page 13), 
for which the terminate response is a direct exit, rather than via the 
caller: to indicate this (on e.g. BURN-l), the terminate action, for 
format consistency, is still shown, but is enclosed in parentheses. 

Operations 

Several mathematical manipulations are available to the programmer 
and are indicated either by special characters or by lower case 
symbols. The trigonometric, logarithm, and square root functions are 
described in the Mathematical Functions writeup. 

1) cos X: Cosine of X. 

2) coSgp X: Single precision cosine of X. 

3) cos“^ X: Arc cosine of X. 

4) cycle: Shift in a cyclic fashion, with bits "spilling out" 

of one end of the register appearing at the other end . 

For example, bit 14 cycled left 2 places, since the word 
length of the computer is 15 bits for data, becomes bit 1 , 
as does the same bit cycled right 13 places (or, in this 
case, shifted right I 3 places). 

5 ) limit: Cause the maximiim value of a quantity to be less than 

the value indicated (unless otherwise specified, the magnitude 
is limited, with sign information preserved). Frequently 
done by means of a check for overflow. 

6) modulo: Form a quantity, for X modulo Y, equivalent to the value 

of Y times the remainder from (X/Y). For example, 380° 
modulo one revolution is 20° . 
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7) overflow: Exceed the capacity of the computer register (i.e. 

the maximum value of the number allowed by its scaling). 

The interpretive language (section VI of 3420.5-27) has a 
special cell which is set if such an overflow is encountered, 
and which may be sensed to cause program branching. The 
divide instruction in the interpretive language, if the 
nmerator exceeds the denominator (using the numbers in the 
computer register), sets the answer to the maximum capacity 
of the computer register with the proper sign. 

8) quasi-floating point: Carry out a computation (usually 

involving a division) by, in general, normalizing both 
niimerator and denominator before performing the division 
(with suitable provisions to avoid division overflow), 
and then shifting the result the appropriate niimber of 
places. Normalization involves shifting a number so that 
there are no leading magnitude zeros, and counting the 
number of shifts required. 

9) set X = Y and Y = X: Exchange the contents of "X" and "Y" . 

10) sgn (X); Complement the result if X is negative, and otherwise 

leave the result alone. Unless otherwise specified, if X = 0 
the result is also left alone (i.e. 0 is a "positive" number). 

11) shift: Shift in a non-cyclic fashion, with exclusion of the 

sign bit: bits "spilling out" of the least significant 
end of the register (for shifting right) are lost. 

Cf. "cycle". Vacated bits are set to sign bit. 

12) sign agreement: Force the signs of the various parts of a 

multiple-precision word to be the same. 

13) sin X: Sine of X. 

14) sin^p X: Single precision sine of X. 

15) sin“^ X: Arc sine of X. 

16) unitX, or unit(A + B): Form or use a unit vector from the 

vector information specified. The scale factor of the unit 
vector when formed is Bl. The magnitude of the vector is 
left in push-down list address 36D and its square in 34E. 
Operation "overflows" if all vector components, before forming 
the unit, are less than 2”21 in magnitude as stored in the 
computer register: if a cross product of 2 unit vectors is 
involved, this is a "true value" of 2“19 (about 0.002 mr). 

17) logg X: Natural logarithm of X. 

18) Vector manipulations: 

(a * B): Vector cross product. 

• (a • B): Vector dot product. 
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18) Vector manipulations (cont): 

(A B): Form individual components of result from the 

individual components of A and B(e.g. Y component 
of result is Ay By) 

jAj : Length of A. 

Square of length of A. 

A = (aj^ , a 2 , a^): Form a vector A from the given components. 

[Al B: Premultiply the vector B by the matrix [aJ (interpreter 
operation MXV). The X component of the answer is 
equal to the dot product of the first row of [aJ 
and B^ etc . 

B : Postmultiply the vector B by the matrix JaJ (interpreter 
operation VXM). The X component of the answer is 
equal to the dot product of the first column of 
[AJ and B^ etc . Same as premultiplication by the 
transpose of JaJ . 

19 ) Scalar manipulations: 

+ : If space before sign^ addition operation. If no space 
before sign^ increment to address (single precision 
unless otherwise specified). MPAC+0 is the most 
significant part of MPAC^jp, while MPAC +1 would be 
the addition of 1 to the contents of MPAC . In a 
subscript, the second meaning applies. 

|X|: Absolute value of X. 

B = (b^, b 2 ):Form a double precision number B, with most 
significant half bq and least significant half b 2 . 

{x : Square root of X. 

n (X^lY); Form the logical product one bit at a time (a 

"masking" order). If a given bit in both X and Y 
is a binary one, then the result is a binary one; 
otherwise, the result is a binary 0. 

20) A bit is "set to 1" or "set to 0" by forcing its value to be 
1 or 0 respectively. 

21) The difference between two angles (expressed in twos complement 
form, see 3420.5-27) can be performed in such a way as to give 
a ones complement result, noted where significant as "ones 
complement difference formed". 

22) Loading of registers of less than full-word capacity (such as 
EBANK which has only 3 bits) is generally indicated for clarity 
as if the loading were done by a masking operation. 
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Ma.ior Variables 


The follovrlng quantities are used at several points in the 
program, and therefore have not been included in the list of 
"Quantities in Computations" at the end of each writeup. 

CDU: Single precision twos complement value of the computer hardware 
CDU (Coupling Data Unit) registers used with the IMU (Inertial 
Measurement Unit). Scale factor B-1, units revolutions. Other 
CDU's are used with the optics, but unless so specified reference 
to "CDU" should be interpreted as the IMU CDU's. 

DELV: Value of sampled accelerometer output, scale factor BI4, units 
of accelerometer counts (5 >85 cm/sec per count). When loaded 
during flight, only the most significant half of each component is 
set to the accelerometer output value, with the least significant 
half set zero. After compensation (in "l/PIPA"), the least 
significant half can become non-zero. 

DSPTAB: Set of 12 single precision erasable memory cells containing 

"display table" information. DSPTABtO through DSPTABtlO are used 
to control the display registers and other numerical displays on 
the DSKY (Display and Keyboard assembly), with the format given on 
page DATA -40. DSPTABtll is used to drive individual indicators 
with bit assignments given in the table below: required changes for 
the values of these indicators are flagged for output by setting 
bit 15 of DSPTABtll to 1. 

DSPTEMl, DSPTEM2: Cells used for communication purposes with the display 
routines (several nouns are associated with the cells to permit 
displays of appropriate parameters). DSPTEMl also "NORMTEMl". 

E: Notation employed for a quantity selected by the address information 
given by the subscript on E. E^.^ would mean a double precision 

word whose address is given by the^contents of cell TS. 

FLAGWRDi (i = 0 - 9): Set of ten words vdiose individual bits are used for 
program control purposes. FLAGWRD4 is used only with the Display 
Interface Routines logic, and hence is defined in that writeup, while 
the others are defined in the table below. As specified by Mr. J. R. 
Garman of MSG, where applicable the flagbit mnemonics are the same 
as those used by W. C. Koelsch in his Sundance programmed guidance 
equations document. In other cases, special mnemonics have been 
created for the individual bits, with the objective of having the 
mnemonic siiggest the significance of the bit when the bit is 1. 

More detailed discussions of Individual bits can be fo\ind in 
suitable downlink functional description documents. 

FIGWRDIO, FIGWRDll: Words whose individual bits are used for program 
control purposes. See table below. 
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I, i, j: Index parameters (not necessarily explicitly contained in 

the program) used as a convenience in describing the performance 
features of the equations. Their use and significance are 
defined (unless obvious) where they are used. 

MAX: The maximum capacity of a computer cell (octal 37777g foi’ a 
single precision +MAX and octal l+OOOOg for -MAX). Decimal 
equivalent is dependent on scale factor of quantity involved 
(if scaled BO, value for single precision is 1 - 2“^ and for 
double precision 1 - 2“^®) . 

MODREG: Single precision cell containing the value of the current 

computer program nimiber (or "major mode"), generally displayed 
also on the DSKY (the quantity is a decimal, not octal, number). 

A setting to -0 is made if a fresh start is performed, thus 
inhibiting display of the quantity. 

MPAC: Multiple -precision (or multiple -purpose) accumulator, a set of 
seven cells assigned to each job. Frequently used for temporary 
storage purposes. MPAC+2 is a communication cell with internal 
DSKY programs (contains the machine address of the quantity to be 
manipulated ) . 


R: Position state vector, scale factor B29, units meters. Program 
notation is "RN" . 


R , , 
— att 


, Communication cells with the orbital integration package 

containing the value of the position vector after completion of 


the integration (i.e. "at tinae" specified). always has 

scale factor B29, units meters (in push-down list location OD); 


R , . , has scale factor B29 meters for earth-centered computations 
ana^B27 meters for moon-centered computations (stored in push-down 
list location 14D) . The use of the push-down list permits 
several jobs to employ the orbital integration package (with 
"INTSTALL" logic performing the necessary sequencing) . 


jREFSMMA'^ : Reference to stable member matrix, elements with scale 
factor Bl. The reference coordinate system "is defined by the 
line of intersection of the mean earth equatorial plane and the 
mean orbit of the earth (the ecliptic) at the nearest beginning 
of the Besselian year in which the mission takes place. The 
X-axis is along the ascending node of the ecliptic on the 
equator (the equinox), the Z-axis is along the mean earth north 
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pole, and the Y-axis completes the right handed triad." Loaded 
for certain options of the inflight alignment routines, and 
initially in "Pll". The first row gives the X stable-member 
axis in reference coordinates, so that pre -multiplication of 
a vector in reference coordinates by {^FSMM'^ gives the same 
vector in IMU coordinates. 

SI, S2: Interpretive language registers (push-down list locations 
4OD and 410) used as communication cells for single -precis ion 
address information. 

Tatt' Communication cell with orbital integration package (cf. R , , ) 
containing the value of time tag associated with the state ^ 
vector output, in push-down list location 12D with scale factor 
B28, units centi-seconds . Program notation is "TAT". 

Tdeci* Communication cell with orbital integration package (cf. 
containing the value of time to -vdiich integration is to be 
performed. Stored in push-down list location 32D, scale factor B28, 
units centi-seconds. 

'^evt' major event (e.g. liftoff, engine on, or engine off, whichever 

took place most recently), scale factor B28, units centi-seconds. 

T. : Value of "ignition time" (displayed by N33), scale factor B28, 

® units centi-seconds. Also used by "CLOKTASK" to compute a 

"time-to-go" as - T. (T^q-q^ displayed by several nouns). 

Hence after ignition is replaced by predicted cutoff time; 
for an ENTR response to the V97N40 thrust-fail display, the 
most significant half is set to a negative quantity, causing the 

"time-to-go" display to be +59 59 (for T above about 9 minutes). 

now 

'^now* P^®sent value of the computer "clock" (registers TIME2, TIMEl) 
hardware erasable memory cells, scale factor B28, units centi- 
seconds. Reset 0 in "Pll", but can be updated by verb 55, verb 
70, or verb 73- 

T , : Time tag associated with R and V, scale factor B28, units 

centi-seconds. Program notation is "PIPTIME" (since it often is 
the value of the clock when accelerometers were sampled). 

THETAD: Single precision twos complement value of the "desired" IMU 
CDU values, scale factor B-1, units revolutions. Can be loaded 
or displayed by noun 22, and is used as one of the display options 
for attitude error needles with RCS DAP (the cells themselves are 
not used internally by the DAP's: THETADX is used by the RCS DAP, 
which is a different parameter than THETAD) . Cells also have 
notation (CPHI, CTHETA, CPSI). 

TIMEl, TIME2: See T^^^. 
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TS (and variants, such as TS, TS 2 _, etc.): Real or dummy temporary 

storage cells, used for convenience in describing the performance 
of the equations. When used as a communication cell between 
routines (such as specification of verb-noun pattern to a display 
routine) generally would be a computer hardware register, such as 
the acciimulator, in the actual program. 


IINITR: Value of unitR, scale factor Bl. 


V: Velocity state vector, scale factor B7, units meters/centi-second . 
Program notation is "VM". 


^att 


, Communication cells with the orbital integration package 

containing the value of the velocity vector after completion 
of the integration (i.e. "at time" specified). always 

has scale factor B7, units meters/centi-second (in push-down 
list location 6D); V , has scale factor B7 meters/centi- 
second for earth-centered computations and B5 meters/centi- 
second for moon-centered computations (stored in push-down list 
location 20D) . See 


unitX, unitY, unitZ: Unit vectors in X, Y, and Z directions respectively, 
scale factor Bl. 


XI, X2: Interpretive language index registers (push-down list locations 
38D and 39 U) sometimes used as address conravunication cells or as 
counters (scale factor BI 4 ) . Can be used to select cells or shift 
amounts in interpretive language (XI frequently is -2 for earth, 
-10 for moon; X2 frequently is 0 for earth and +2 for moon) . If 
used as address communication cells, complementing in loading and 
subsequent use sometimes omitted for clarity. 

%c vectors, scale factor Bl, used to 

define desired iMu orientation for communication with routines 
in Coordinate Transformations, or to define navigation base 
orientation. Notation also Xj^i^ etc. in program. 

X.,™, Y , Z„^ (or rx<,Jl): Unit vectors, scale factor Bl, used to define 
the orientation of the "stable member" (i.e. IMU). 


o 



Meaning of bits in DSPTABtll 

Bit Meaning 

9 Program alarm. 

8 Tracker alarm (optics). Also used for VHP data-good 

information (set e.g. by "LIGHTON"). 

6 Gimbal lock (controlled by "GLOCKMON"). 

4 No attitude. 
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Meaning of bits in FLAGWRDO 




FLAGWRDO also has notation "STATE". Initialized to OOOOOrt by a 
fresh start; bit 1 is set 0, v/ith other bits left alone, in "INITSUB" , 
Address is 0074g* 


Bit 

Symbol 

Meaning 

15 


Not assigned. 

14 

JSWITCH 

Bit set to 1 vd-thin orbital integration package 
to indicate that extrapolation of W matrix 
(rather than state vector) being performed. 

13 

MIDFLAG 

Bit set to 1 within orbital integration package 
to indicate that integration with solar and 
• secondary-body perturbations is required: set 
if altitude above primary body exceeds 800 km. 

12 

MOONFLAG 

Bit set to 1 within orbital integration package 
to indicate that state vector is moon-centered 
(if 0 , is earth- cente red ) . 

11 

FARHOR 

Bit set to 1 in P23 if sighting on "far" horizon 
(as contrasted with "near" horizon) is done. 

Program notation "NORFHOR" . 

10 

ZMEASURE 

Bit set to 1 in P23 if the measurement and state- 
vector bodies are different (earth is body and 
moon-centered state vector, for example), and 
set 0 if they are the same . 

9 

NEEDLFLG 

Bit set 1 (by V62E or V 63 E) or 0 (by V 6 lE) to 
indicate that FDAI attitude error display should 
be of total attitude error (if l) or DAP "following 
error" if 0. See bit 6 of FLAGWRD 9 . 

8 

IMQSE 

Bit set 1 to indicate IMU "in use" (an alarm is 
generated if MJ is turned off vri.th bit l) . 

7 

RNDVZFLG 

Bit set 1 to indicate that P20 in rendezvous mode 
(options #0 or # 4 ) has been enabled, to control 
proper selection of restart information when 
Average-G is stopped, and to serve other functions. 
P20 may be dormant even if bit is 1. 

6 

SGTMK 

Bit set 1 to indicate that sighting marks have 
been initiated. Program notation "R 53 FLAG" . 

5 

F2RTE 

Bit set 1 in P37 to indicate than an iteration 


to provide a result for time-critical mode 
(in "GAMDV25") is desired. 


U 
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1 


Bit 

k 


3 


2 


1 


Symbol 

CYCblFLG 


FREEFIAG 


AMOONFLG 


P29FLAG 


Meaning 

Bit set 1 in "STKTEST" (part of R61) to cause R60 
computations to exit to "RCYCLR61" after determining 
required maneuver time for use in computing a new 
CSM/LM relative position. 

Bit used for temporary program control purposes, 
such as a communication bit with "R5A-" that is 
left at 0 if a V32E response is received, and 
otherwise is left at 1. 

Bit used to indicate if Average-G state vector is 
moon-centered (value is l) or earth-centered (value 
is O). Set and reset in "MIDT0AV2" . 

Bit set 1 in "P29", used to permit some computations 
common to P21 to be performed. Used in "HOPALONG" 
to determine if in first iteration (where bit reset). 



) 
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Meaning of bits in FLAGWRDl 


Bit 12 of FLAGWRDl is left alone, and other bits set 0, by a fresh 
start; bit 6 is set 0, v/ith other bits left alone, in "INITSUB" . 


Bit 

Symbol 

Meaning 

15 

2JETSFLG 

Bit set 1 in R03 to indicate that two- jet X 
translation is desired (O means 4 jets), ignoring 
failure information. Program notation "NJETSFLG" . 

14 

STIKFLAG 

Bit set 1 in RCS DAP if RHC commands provided or 
if )MjA|> 75°. Used to bypass automatic maneuvers 
Bit reset 0 by V58E and in "ROO". 

13 

ERADCOMP 

Bit set 1 to specify that coordinate computation 
should use a "model" radius for earth and moon: 
for earth, it is computed based on Fischer model, 
and for moon a mean lunar radius (173^.09 km) is 
employed. If bit is 0, the earth Saturn lamch 
site radius (6,373,338 meters) or moon LM "launch 
site" (i.e. RIB landing site) radius is used. 
Program notation is "ERADFLAG" . 

12 

NODOPOl 

Bit set 1 at the start of "Pll", to inhibit 
selection of POl subsequently. 

11 

RCSBURM 

Bit set 1 if an RCS bum (P4l) is specified, and 
set 0 if SPS burn (P40) is specified. Program 
notation "ENG2FLAG" . 

10 

LMTRG 

Bit set 1 to indicate that the target being 
sighted is the LM. Program notation "TARGIFLG" . 

9 

LMKTRG 

Bit set 1 to indicate (with bit 10 = O) that the 
target being sighted (R52) is a landmark. If bits 
10 and 9 are both 0, the target is a star. 

Program notation "TARG2FLG" . 

8 

CSMUPDAT 

Bit set 1 to specify that CSM state vector is 
to be updated by navigation measurements (a value 
of 0 means LM state vector) . Can be set to 1 by 
V81E and to 0 by V80E. Program notation "VEHUPFLG' 

7 

UPDATFLG 

Bit set 1 to indicate that updating of state 
vector by (optics or VHF) marks is allowed, and 
set to 0 to indicate that such updating is not 
allowed . 
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Bit Symbol 


Meaning 


6 


5 


k 


3 


2 


1 


IDLEFAIL 


TRACKFLG 


MARKFLG 


ITERISW 


GUESSSW 


AVBGFLAG 


Bit set to 1 for 2 seconds in "V97P"> to inhibit 
the engine fail detection logic of "SAG. 8" from 
being triggered after a PRO response to the V97N40 
display (for the two-second interval). 

Bit set to 1 to indicate that tracking via P20 is 
allowed (in either the rendezvous or universal 
tracking modes, see bit 7 of FLAGWRDO and bit 9 
of FLAGMID8) . A setting to 0 means that the P20 
tracking should not be running. 

Bit set 1 for an optics mark (except in R21 and 
R57)j used in the mark reject logic (except R2l) 
to determine whether to accept the mark reject 
input or generate a program alarm. 

Bit set 1 to indicate that first Lambert 
iteration is being performed, and then reset 0. 
Program notation "SI£)PESW" . 

Bit set 1 to indicate to Lambert iteration that no 
starting value is available; otherwise, it is set 
0. Program notation "GUESSW" . 

Bit set 1 when "READACCS" (accelerometer sampling 
and Average-G computations) is initiated, and 
reset (in "ISITPOO") to halt computations. 
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Meaning of bits in FLAGV/RD2 


FLAGWRD2 is initialized to OOOOOrt by a fresh start; bits 12, 11, 
and 9 are set 0, with other bits left alone, in "INITSUB" » 


Bit 

Symbol 

Meaning 

15 

DRIFTFLG 

Bit set 1 to enable free -flight gyro drift 
compensation. 

14 

R21MARK 

Bit set 1 to indicate that reception of optics r/v 
primary marks is enabled, used to control the 
location in which mark information is stored by 
"MARKDIF". 

13 

22DSPFLG 

Bit set 1 in P22 to cause a V06N49 display of the 
state vector update from the fihst mark of a set, 
and then reset 0. 

12 

P21FUG 

Bit set 1 in P21 after a "base vector" has been 
obtained: subsequent evaluations make use of the 
base vector instead of the present memory permanent 
state vector. 

11 

STEERSW 

Bit set 1 to permit P40 cross-product steering and 
PI 5 /P 4 O time-to-go computations to be performed. 

10 

SKIPVHF 

Bit set 1 in "STARTSB2" as a flag for "VHFREAD" 
that a restart has taken place. The resulting 
radar interrupt is ignored. 

9 

IMPULSW 

Bit set 1 in "S 4 O. 13 " if a burn duration of less 
than 6 seconds is determined. Used in "IGNITION" 
to set waitlist call for cutoff and bypass the 
setting of the STEERSW bit. 

8 

XDELVFLG 

Bit set 1 to specify that External Delta V guidance, 
as contrasted with "Lambert Aimpoint", has been 
targeted for P 4 O/P 4 I. 

7 

FIRSTFLG 

Bit set 1 to indicate that a pass through "S 4 O. 9 " 
has not yet been accomplished (set 1 at the start 
of "S 40 .I", and then reset 0 at the end of "S40,9"). 


HAVEELEV 

Bit set 1 in P34/F74 to indicate that elevation angle 
is available, so should be computed and displayed 

A zero value means the opposite. Bit set 0, if 1, 
on final pass in minimum key rendezvous mode. Program 


notation is "ETPIFLAG". 
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Bit Symbol 


Meaning 


6 


5 


4 


3 

2 


1 


FINALFLG 


LMACTFLG 


PFRATFLG 


P24MKFLG 


CALCMAN2 


Bit set 1 to indicate that final pass through 
rendezvous targeting computations is to be 
performed (set in P37 to cause proper exit from 
the V16N45 display). 

Bit set 1 to indicate that LM is "active" vehicle 
(i.e. the one to do the maneuver) in P72-P75. Also 
set in "P83" for computation of LM P76 information. 
Program notation "AVFLAG" . 

Bit set 1 to indicate to P52/P54 that a "preferred 
attitude" has been computed and is available. It is 
set in P 4 O/P 4 I for burn attitixie, and in the P 36 
minimiim key rendezvous sequence after the plane-change 
information is available. The bit is used to select 
the initial VO 4 MO 6 option display. A "preferred 
attitude" can be uplinked and used without setting 
the bit (cells are also used for P27 uplink buffer). 

Bit set 1 in P24 when mark taken that can be used 
to update landmark coordinates . Reset for mark 
reject or after being used for the updating. 

Bit set 1 to specify that maneuver starting 
procedure should be done in R60 attitude maneuver 
package, and then reset. 


NODOV 37 Bit set 1 to cause V37 inputs of other than 00, 

unless in TVC mode, to be ignored. Set e.g. while 
periodic (POO or P20 tracking) integration is done, 
while the P76/P77 integration is done, when PO 6 is 
done, or when entry DAP is started. Program notation 
is "NODOFLAG". 
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Meaning of bits in FIAGWRD3 


Bit 13 of FLAGWRD3 is left alone, and other bits set 0, by a fresh 
start; bits 14 and 9 are set 0, vdth other bits left alone, in 
"INITSUB" . 


) 



Bit 

15 


14 


13 

12 


11 


10 

9 


8 


7 


6 


Symbol Meaning 

V5ONI8FL Bit set 1 by V37 selection of a new program (except 
poo), and by V58E. It is set 0 upon completion of 
"R6ICSM" . If bit is 1 and attitude error sufficient, 
then R60 is entered from R6I. 


GLOKFAIL Bit set 1 if "CALCGA" computes a middle giiribal 

angle in excess of 60° (reset in "HJITSUB" as well 
as in prelaunch programs). 

REFSMFLG Bit set 1 if a meaningful [rEFSMMA^ is considered 
to be available. 

LUNLATLO Bit set 1 if l\jnar coordinate transformations are 
to be used to obtain or process longitude and 
latitude; a value of 0 means earth-centered 
coordinate transformations. Program notation is 
"LUNAFIAG" . 


P22MKFIG Bit set 0 at start of P22 and P24, and set 1 after 
N7I response (P22) or after first mark (P24). Can 
be used to indicate that words 18— 3 5^ of the program 
22 downlist are at least partially updated (raw 
time, optics angles, and IMU CDU angles), although 
P22 and P24 both load downlist cells as marks are 
obtained . 

VFLAG Bit left at 1 by star selection routine if a 

suitable pair of stars has not been found. 

POOFLAG Bit set 1 to flag to orbital integration logic 

that doing periodic (POO or P20 tracking) integration, 
in order to enable the logic checks for this type 
of integration. Bit reset in "INITSUB". 


PRECIFIG- Bit set 1 for various orbital integration entrances 

except from "STATINTl" (periodic POO or P20 tracking) 
for GSM. It is used in "TESTLOOP" to identify the 
special "STATINTl" integration, and bypass any 
integrations of less than a time step. Hence if bit 
is 1, integration is done up to the specified time 
(which may require a fraction of a time step). 

CULTFLAG Bit set 1 in star selection routine if star is 
occulted (by earth, sun, or moon), or in 
"SXTANGl" for trimnion "true" angle outside 
0-90° range . 

ORBWFLAG Bit set 1 if W matrix considered satisfactory 
for orbital navigation (used for P22 and P23, 
as contrasted with P20, purposes). 
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Symbol 


Meaning 


STATEFLG 

Bit set 1 if the "permanent state vector" of 
the GSM or LM is to be updated by the orbital 
integration package (used and reset in "A-PCHK"). 
Permanent state vector also updated if bit 1 
(WMATINT) of FLAGWRD3 = 1. 

CONICINT 

Bit set 1 if conic integration is to be performed 
by orbital integration package (if 0, Encke 
integration is done). Program notation 
"INTYPFLG" . 

CSMINTSW 

Bit set 1 if GSM state vector is to be integrated 
by orbital integration package (if 0, LM state 
vector is integrated). Gan enter at "INTEGRVS" 
with vector supplied in separate communication 
cells. Program notation "VINTFLAG" . 

9DIMWMAT 

Bit set 1 if W matrix to be considered 9x9 for 
integration purposes (bit 9 of FLAGWRD5 gives 
dimension for measurement incorporation); if 0, 
matrix considered 6x6. Program notation 
"D60R9FLG" . 

WMATINT 

Bit set 1 if W matrix is to be integrated by 
orbital integration package (done for each time 
step after orbital Integration of state vector). 
If 0, no W matrix integration is to be done. 
Program notation "DIMOFLAG" . 


For bits in FLAGWRD4, see Display Interface Routines. 


Meaning of bits in FLAGWRD5 


FLAGWRD5 is initialized to 00200^ (bit 8 = l) by a fresh start; 
bits 12, 10, and 7 are set 0, with other bits left alone, in 
"INITSUB" . 


Bit 

Svmbol 

Meaning 

15 

DSKYFLAG 

Bit set 1 in "KEICOM" if a DSKY (not uplink) 
input is received. If the bit is 0, as it is 
after a fresh start , then the drive of DSKY 
outputs in "T4RUPT" is usually bypassed (except 
for the remainder of the 0.12-second Interval 
after DSPTABtll is transmitted). 

14 

RETROFLG 

Bit set 1 in P37 if present vehicle orbit is 
retrograde (to cause proper polarity of N8l R1 
display) . 

13 

SLOWFIG 

Bit set 1 if a "slow down" maneuver desired in P37 
(indicated by input of a negative velocity change). 

12 

P23CALIB 

Bit set 1 to indicate that a calibration mark (i.e. 

R57) is being obtained for P23, and reset in "MDR57"* 
Program notation is "V59FLAG" . 

11 

FSTINCRP 

Bit set 1 if the first incorporation of measurement 
information (in P22 or R22) from optics data is 
being made, and set 0 for second. In R22 for THF, 
only one incorporation is made. Program notation 
is "INCORFLG" . 

10 

NEWTFIAG 

Bit set 1 in "HOPALONG" (part of P29) if another pass 
through a portion of the P21 computations is required, 
used to cause exit to proper point in the iteration 
loop. 

9 

DMEINFIG 

Bit set 1 if W matrix 9x9 for incorporation 
purposes (O for 6x6, including initial cycle for 
processing of P22 data from a given set of marks). 

8 

CMCCOMP 

Bit set 1 (as part of fresh start), but not subsequently 
referenced. Program notation "COMPUTER" (formerly used 
to distinguish between CMC and LGC computations) . 

7 

EMGQNFLG 

Bit set 1 when the SPS engine-on command is generated, 
and set 0 when it is removed. Note that it does not 
indicate that thrust has been detected. Bit used e.g. 
to restore the engine -on command after a hardware 


restart . 
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Bit 

6 


5 

4 

3 


2 

1 


Symbol 

3AXISFIil 


BKUPLO 


NOSOLNSW 


Meaning 

Bit set 1 if attitude maneuver package ("KALCMANU") 
provided with three angles to which maneuver is to 
be done (e.g. options #4 or #5 of P20, or "R62DISP"). 
If bit reset, maneuver calculated using "VECPOINT" . 

Bit set 1 when V75E (backup liftoff) is received. 
Program notation is "GRRBKFLG" . 

Not assigned. 

Bit set 1 if a conic routine (e.g. Lambert or 
time-radius) imable to provide a solution, and 
set 0 if a solution generated. Program notation 
is "SOLNSW". 


Not used (assigned notation "MGLVFLAG")* 

RENDWFLG Bit set 1 if W matrloc considered satisfactory 
for rendezvous navigation (R22 of P20) . 


) 
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Meaning of bits in FLAGWRD6 


FLAGWRD6 is initialized to 0000/+^ by a fresh start; bit 13 is 
set 0, with other bits left alone, in "INITSUB". Also is "CM/FLAGS 


Bit 

Symbol 

Meaning 

15 

DAPBITl 

DAP status bit (see bit I 4 ). 

14 

DAPBIT2 

DAP status bit, used with bit 15 to indicate 


the DAP which is activated, and to select the 
appropriate starting point if a hardware restart 


13 


12 

11 


ENTRYDSP 


STRULLSW 


CMDAPARM 

GAMDIFSW 


Bits 15-lA 


DAP Activated 


OOp None (or entry) 

01^ RCS DAP 

lO'i TVC DAP 

II 2 Saturn DAP 


Bit set 1 to cause display generation in entry 
program based on verb-noun in ENTRYVN (in 
"ENDEKIT"). Reset 0 to inhibit this display 
(e.g. while "P 65 .I" display is provided). 


Bit set 1 in "IGNITION" if steering is to be 
enabled 2 seconds after SPS ignition, and set 0 
if it is not to be (i.e. short burn, for which 
ullage termination is the only function at that 
time) . 


Bit set 1 to "arm" the entry DAP (to allow 
"entry firings and calculations"). 

Bit set 1 if GAMDOT (see Entiy Computations) is 
to be calculated (as the difference of present 
and previous angle information). 


10 


9 

B 


GONEPAST Bit set 1 to indicate that lateral control 

calculations are to be omitted during entry. It 
is initialized to 1 in "STARTENT" and reset 0 
in "INITROLL" after 0.05g sensed; in "PREDICT3" 
(P 67 ) it is a "latched" version of bit 8 of 
FLAGWRD7, indicating target overshoot. 

RELVELSW Bit set 1 in entry equations to cause earth- 
relative velocity to be used. 

EGSW Bit set 1 in entry equations to indicate P 67 . 
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Bit 


Meaning 


Symbol 
8(cont) LNDKNOWN 


7 NOSWITCH 

6 HIND 

5 INRLSW 


Bit set 1 if a "knovm" landmark is being 
observed in P22, and 0 if "\anknovm" . Program 
notation "KNOWNFLG" . 

Bit set 1 in "UPCONTRL" (entry) if drag exceeds 
140 fps^, in order to inhibit a lateral switch 
in "LIMITL/D". 

Bit set 1 in entry equations to specify that 
"HUNTEST" iteration is to be performed. 

Bit set 1 in entry equations after 0.05g sensed, 
to indicate termination of the period when 
initial roll attitude is to be held. 


4 lATSW 


3 05GSW 


2 CMDSTBY 


1 GIMDIF 


Bit set 0 in entry equations to force the entry 
DAP to "roll over the top" (rather than shortest 
route ) . 

Bit set 1 when drag is over 0.05g, and reset 0 
when less than that amomt. Program notation 
" .05GSW" . Bit set to an initial condition of 1 
in fresh start to bypass TTE computation in 
"SERVICER" (reset e.g. in "NEWRNVN" for P6I, 
and also in "P62" before entry DAP started). 

Bit set 1 when entry DAP computations are not to 
be inhibited (i.e. when entry DAP "activated"). 
Program notation "CM/DSTBY". 

Bit set 1 in entry DAP if CDU differences and 
body rates are to be computed (as difference of 
present and previous angles). Program notation 
"GYMDIFSW" . 
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Meaning of bits in FLA.GWRD7 


''' FLAGVIRD7 is initialized to 00000^ by a fresh start; bits 13, 12, 

and 11 are set 0, vfith other bits left alone, in "INITSUB" . 


Bit 

Symbol 

Meaning 

15 

TERMIFLO 

Bit set 1 to terminate performance of "R52" : set 
at end of R53 and (unnecessarily) R56. 

14 

ITSWITCH 

Bit set 1 in P34/P74 to force another iteration in 
the computation of TPI time. Program notation is 
"ITSWICH". Bit also set in P33/P73. 

13 

IGNFIAG 

Bit set 1 when nominal ignition time reached. 

12 

ASTNFIAG 

Bit set 1 when crew authorization for ignition 
has been received. 

11 

TIMRFIAG 

Bit set 1 to permit "CLOKTASK" to continue 
(loops at a one-second rate to update time-to- 

'^togo^ * 

10 

NORliSW 

Bit set 1 to specify that UN is provided as an 
input from "INITVEL" package to Lambert; if 0, 
Lambert computes its own value (in "GEOM")* 

9 

RVSW 

Bit set 1 to inhibit calculation of final state 
vector by "COMMNOUT" (for e.g. time-theta or 
time-radius routines). 

8 

GONEBYTG 

Bit set 1 in entry computations if an overshoot 
of the target is determined to exist. It is 
updated each computing interval to provide sign 
information for entry display of target angle. 
Program notation is "GONEBY" . 

7 


Not assigned. 

6 

V37FLA.G 

Bit set 1 if the Average-G package ("READACCS" 
etc.) is running. If bit is 1, then V37 processing 
halts to wait for Average-G termination via 
"AVGEND" . 

5 


Not assigned. 


O 
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Symbol 


Meaning 


UPLOCKFL 

VERIFMG 

LMATTCH 

TFFSW 


Bit set 1 to lock out further uplink inputs 

(except error reset) after a complement 

(k k k) failure detected in uplink information. 

Bit whose value is complemented when confirma- 
tion of P27 update (a V33E proceed response to 
F V21 N02) is received. 

Bit set 1 in R03 if DSKY input indicates GSM 
and LM are attached (not otherwise used). 

Bit set 1 if calculation of perigee time 
is to be made, and set 0 if time of free fall 
is to be obtained. 


Meaning of bits in FIAGMRD8 


Bits 12 , 11, and 8 of FLA.GWRD8 are left alone, and other bits set 
1 0, by a fresh start. FLAGWRD8 is left alone in "INITSUB". 


Bit Symbol 

Meaning 

15 RPQFLAG 

Bit set 1 in "INTEGRV" and "INTEGRVS" (at start of 
a use of the integration package) to indicate that 
position vector to secondary body not calculated; 
set 0 in "ACCOMP" when computed. 

14 NEWLMFLG 

Bit set 1 in R 52 when done in P24 after a new 
landmark location derived from measurement data, 
and used to bypass rate computation subsequently 
in order to avoid improper result. 

13 NEWIFLG 

Bit set 1 by various entrances to integration 
package to indicate the initial pass through the 
integration, and set 0 in "TESTLOOP" after the 
logic concludes that performing periodic integration 
of the GSM state vector (in POO or P20 tracking): 
effect is to inhibit start of integration of this 
type unless time tag at least 4 time steps behind 
present time . 

12 CMOONFLG 

Bit set 1 if GSM state vector in lunar sphere 
(i.e. moon-centered coordinates), and set 0 if 
earth-centered. Gan be uplinked in either system 
(see UPSVFLAG in Uplink Processing), and changed 
in "ORIGGHNG" (bit 12 of FLAGWRDO, which is 
eventually copied into bit 12 of FLAGWRDB for a 
permanent state vector update) . 

11 LMOONFLG 

Bit set 1 if LM state vector in lunar sphere 
(i.e. moon-centered coordinates), and set 0 if 
earth-centered. See bit 12 of FLAGWRD8. 

10 ADVTRK 

Bit set 1 in "S22N7071" (part of P22) to indicate 
advanced ground track mode of R 52 is required (bit 
reset to 0 for normal R52 entrances) . 

9 UTFLAG 

Bit set 1 to indicate that P20 in tracking mode 
(options #1, #2, or #5) has been enabled, to control 
proper selection of restart information i^en Average-G 
is stopped, and to serve other functions. P20 may 
be dormant even if bit is 1. 

8 SURFFMG 

Bit set 1 by V44E and 0 by V45E, used to indicate 
(if l) that LM on lunar surface. If 1, conic or 
precision "integration" attempts will branch in 
"INTEGRV" to use the planetary inertial orientation 
subroutine, based on RI5, to determine LM state vector 
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Bit 

7 

6 

5 

4 

3 


2 


1 


Symbol 

INFINFLG 

ORDERSW 

APSESW 

COGAFIAG 

V960NFIjG 

R67FLAG 

360SW 


Meaning 

Bit set 1 to indicate that no conic solution 
can be obtained (set several places in "GETX" 
Universal Variable Subroutine). 

Control bit used in "ITERATOR", expected to 
remain 0. 

Bit set 1 in time-radius routine if desired 
radius outside of pericenter-apocenter range, 
and otherwise set 0. 

Bit set 1 if calling routine finds that COGA 
computation overflows (in Conic Routines). 

Bit set 1 when a V 96 E (inhibit POO integration) 
input received, and reset 0 when POO integration 
is done. See bit 5 of FLAGWRD9. Could also be 
used to inhibit P20 tracking periodic integration, 
if P20 selected after the V 96 E. 

Bit set 1 in "R 67 " when the specified (via N34) time 
for start of rotation in option #2 of P20 has arrived, 
used to control logic in automatic maneuver routine . 

Bit set 1 in "GETX" package if transfer angle 
near 360 °. 



j 
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Meaning of bits in FLAGWRD9 


FIAGWRD9 is initialized to 00000^ by a fresh start; bits 15 and 
11 are set 0, vd.th other bits left alone, in "INITSUB". 


Symbol 

Meaning 

SWTOVER 

Bit set 1 in "SWICHOVR" (entered for V 46 E vdth LM-on 
TVG DAP) when the manually Initiated change to the 
"low bandwidth" LM-on TVG DAP is made. Bit also 
initialized to 0 in "TVGINITl" . 

P24FLAG 

Bit set 1 when P24 is started, and reset 0 in 
"AUTO 37 ". Used to control performance of R52 and 
logic of mark/mark reject processing. 

V82EMFLG 

Bit set 1 if state vector used in R 30 is moon- 
centered and 0 if earth-centered. 

MAXDBFLG 

Bit set 1 in RO 3 if maximum deadband selected, and 
set 0 if minimum deadband selected. Used in 
"FIXDB" and "INITSUBA" to restore the RGS DAP dead- 
band to this selected value. 

V94FLAG 

Bit set 1 in P23 while a V94E input is allowed 
(provide a "recycle" to cause R 60 to be done). 

SAVECFLG 

Bit set 1 in P23 before start of N 7 I display (after 
the mark): it allows use of a portion of the same 
coding ("saves cells"). 

VHFRFIAG 

Bit set 0 by V88E (or "V37") and to 1 by V87E and 
"STARTAUT" . If both this bit and bit 9 of FLGWRDIO 
are one, R22 attempts to process VHF range data 
periodically. 

VHFSOURC 

Bit set 1 by R22 if the data source is VHF ranging, 
and set 0 if it is optics. Program notation is 
"SOURGFLG" . 

R22CAFLG 

Bit set 1 while R22 is processing an optics mark, 
used if a mark reject is received to determine 
appropriate action. 

N22ERMDS 

Bit set 1 by V62E and 0 by V 63 E, causing data 
selected for total attitude FDAI error display 
in RGS DAP (see bit 9 of FLAGWRDO) to be 

THETAD (N22) if bit is 1 and GPHIX (NI 7 , loaded 
with GDU by V60E) if the bit is 0. Program 
notation "N220RN17" . 


Bit 

5 


h- 


Symbol 

QUITFUG 


R31FIAG 


Meaning 

Bit set 1 by V96E, to cause exit from the integration 
loop in "TESTLOOP" . If the bit is 1, the periodic 
(POO and P20 tracking) integration is terminated in 
"STATINTl" (where bit is reset without another 
waitlist call for "STATEINT"). 

Bit set 1 if R3I (V83E or P79) computations are 
selected, and set 0 if R34 (V85E) is selected. 


3 


2 


1 


MIDIFLAG 


MIDAVFLG 


AVEMIDSW 


Bit set 1 in "MIDTOAVl" to indicate that 
integration to the specified input time is 
desired, and reset if entrance to "MIDT0AV2" is 
made, or if the specified time is less than 12.5 
seconds in the future after any time step (as 
deduced in "MIDTOAVl" or "CKMID2"). A reset 
value means to integrate to a certain time in the 
future (generally 12.5 seconds). 

Bit set 1 in "MIDT0AV2" (at a point after 
"MIDTOAVl" enters it) to flag the fact that 
the coasting flight to powered flight logic 
is desired. Causes "DIFB1^2" to transfer to 
"CKMID2" at the completion of a time step. Bit 
reset in "INTEKIT" at completion of integration. 

Bit set 1 in "AVETOMID" if "permanent" CSM state 
vector must be integrated for W-matrix purposes, 
and reset in "INTEXIT". It is used to inhibit 
loading of CSM state vector cells at the end of 
the integration, since these cells (which other- 
wise would be used for downlink) contain the 
final results from the Average-G computations. 


) 
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Meaning of bits in FLGWRDIO 


Bit 11 of FLGWRDIO is left alone, and other bits set 0, by a fresh 
start. FLGWRDIO is left alone in "INITSUB" . 




Bit 

15 


14 


13 


12 


11 


10 


9 


8 


7 


Symbol Meaning 

PCMANFLG Bit set 1 for minimum key rendezvous operation of 
P 36 and P 79 , causing "PIKUP20" to exit after doing 
"R 6 ICSM" . 


INTINUSE 


INTGRAB 


REJCTFLG 


HDSUPFLG 


BURNFLAG 


RANGFLAG 


P35FLAG 


AUTOSEQ 


Bit set 1 to indicate that the "INTSTALL" orbital 
Integration routine has accepted a request for a 
use of the integration package . Program notation 
is "INTFLAG". 

Bit set 1 to indicate that a restart group phase 
change has taken place while the routine using the 
integration package (which previously set bit 14) 
is performing the computations. Program notation 
is "REINTFLG". 

Bit set 1 if a mark reject is received when optics 
in primary P20 mode and bit 7 of FLAGWRD 9 = 1. Bit 
checked just before incorporation of optics mark 
information into the state vector. Can also be 
set (due to similar logic) by V86E. 

Bit used in "STARTAUT" to determine the appropriate 
initial condition for AZIMANGL (if 1, an angle of 
0° is used ) . 

Bit used in "HARTBURN" to determine if the GSM did 
thrusting. Set 0 at start of P 40 /P 4 I, and set 1 if 
SPS engine ignition done or if translation hand 
controller found deflected when "SER7XT1" entered. 

Bit set in "CRS 6 I.I" based on the conic estimate of 
CSM/LM separation, used if 1 to allow a VHF sample to 
be obtained (intended to lock out attempts for ranges 
above the saturated data link of 327.67 nmi). 

Bit set 1 in "P35/P75B" during the final computation 
cycle of P35 and P75; it is used in "AUTOW" to 
control W matrix; initialization, and is reset in 
"REND5C" . 


Bit set 1 in "REND 3 OS", and left at that value for 
a PRO to the 00017g checklist display in "MINKDISP" . 
If 1, indicates the automatic rendezvous mode, also 
known as minimum key rendezvous, is in effect. 
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Bit Symbol 

Meaning 

6 

Not assigned. 

5 MANEUFLG 

Bit set 1 in "VN1645" after final PRO response (except 
in P 36 ), and reset in "REND12" after mark has been 
incorporated. Used in "AUTOW" logic to indicate that 
the first mark after a biarn opportunity is being 
processed. Can also be set in "STARTAUT" . 

4 PTV93FLG 

Bit set 1 in "AUTOW" if W matrix initialization after 
the next burn is desired. Can also be set in "STARTAUT" . 

3 TPIMNFLG 

Bit set 1 in "S34/35.5" on final pass (of P34/P74 and 

P35/P75). Used in "AUTOW" W matrix initialization 
logic. Set 0 at start of P34/P74. 

2 FULTKFLG 

Bit whose value can be changed by use of the display 
initiated by V57, and whose value is used to control 
"AUTOW" logic if TPIMNFLG and MANEUFLG bits both 1. 

A value of 1 for the bit means that do not have 
both optics and VHF sensors available. 

1 PGFIAG 

Bit set 1 at the start of P 36 , for use in controlling 
program logic, including minimum key rendezvous P52 
sequencing . 
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Meaning of bits in FIGWEDll 


FLGWRDll is initialized to 00000^ by a fresh start, and is left 
alone in "INITSUB" . 


Bit 

15 


Ik 


13 

12 


11-9 

8 


7 

6 


5-1 


Symbol 

S32.1F1 


S32.1F2 

S32.1F3A 

S32.1F3B 


AZIMFIAG 


HAFLAG 


CSISFLAG 


Meaning 

Bit set 1 in "CSI/BI" if CSI velocity change is 
excessive (P3l/P32/P72) , and used to halt the 
iteration if another excessive magnitude encountered 
It is the equation document flag "SI" . 

Bit set 1 to indicate the first cycle through the 
P 31 /P 32 /P 72 target iteration loop, and then reset 
0. It is equation document flag "S2" . 

Computation status flag for P3l/P32/P72 (see bit 12) 

Computation status flag for P3l/P32/P72, used with 
bit 13 to control computation sequencing. The pair 
corresponds to equation document flag "S3". The 
initial condition is 0 l 2 j ^ tentative alarm 
generation sets to 00^; a 50 fps velocity change 
sets to Up) and an angle error sign change sets 
to 10^ (and sets velocity change to 10 fps). 

Not assigned. 

Bit set 1 for options #4 and #5 of P20, used in 
"R 63 COMI" to control nature of computation (and in 
other places as necessary to distinguish between 
3-axis and "VECPOINT" solutions). 

Bit set to 1 in "P 3 IRECTC" and reset in "P32/P72C" 
after successful solution reached (used to control 
branching back to P 3 I computations) . 

Bit included in logic assignments to allow multiple 
CSI targeting in minimum key rendezvous mode. Due 
to coding error in "P82", however, P32 computations 
would always be expected to see the bit as 0 . 


Not assigned. 
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Channel Assignments 


Listed below are the channel (input/output interface) assignments 
of interest for this flight. For more complete discussions of the 
channel bits, see section IlE of 3420.5-27. By convention, channel 
numbers are given in octal. 


Channel Bits 


Function 


03 I 4 -I Most significant 14 bits from a 33 -stage binary 

counter driven by a 102.4 kc signal derived from 
the computer master oscillator (which keeps running 
when the computer is placed in standby) . Scale 
factor B23, units centi-seconds . 

04 I 4 -I Next most significant 14 bits of the counter used 

for channel 03 . Scale factor B9, units centi-seconds. 

05 S-l(SM) X-axis RCS jets for Service Module. 


05 



Jet 

Quad 

Rotation 

Translation 

8 

6 

B 

“ Yaw 

+ X 

7 

7 

B 

+ Yaw 

- X 

6 

8 

D 

- Yaw 

- X 

5 

5 

D 

+ Yaw 

+ X 

4 

2 

A 

- Pitch 

+ X 

3 

3 

A 

+ Pitch 

- X 

2 

4 

C 

- Pitch 

- X 

1 

1 

C 

+ Pitch 

+ X 

8-l(CM) 

Pitch 

and yaw 

RCS jets 

for Command Module 


Jet 

Rotation 


8 

6 

- Yaw 



7 

7 

+ Yaw 



6 

8 

- Yaw 



5 

5 

+ Yaw 



4 

2 

- Pitch 



3 

3 

+ Pitch 



2 

4 

- Pitch 



1 

1 

+ Pitch 




-J 
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Channel 


Bits 


Function 


06 8-l(SM) Y-axis and Z-axis ECS jets for Service Module. 


06 


07 


10 


11 



Jet 

Quad 

Rotation 

Translation 

8 

14 

C 

- Roll 

+ Y 

7 

15 

C 

+ Roll 

- Y 

6 

16 

A 

- Roll 

- Y 

5 

13 

A 

+ Roll 

+ Y 

4 

10 

D 

- Roll 

+ Z 

3 

11 

D 

+ Roll 

- Z 

2 

12 

B 

- Roll 

- Z 

1 

9 

B 

+ Roll 

+ Z 

4-l(CM) 

Roll 

RCS jets 

for Command Module (entry) 


Jet 

Rotation 


4 

10 

- Roll 



3 

11 

+ Roll 



2 

12 

- Roll 



1 

9 

+ Roll 



7-5 

Bits 

used to ; 

select appropriate portion 


memory for FBANK register contents (see 3420.5-27) 
of 30g and above . Proper setting determined by 
program service routines, hence generally not shovm 
in this docianent. Known as F EXT or SUFERBNK. 

15-1 Channel used to drive latching relays associated 

with the display system (bits 15-12 = 000 I 2 - 1 1 O Oo ) - 
Loaded based on entrance to "T4RUPT". Known as OUTO. 

13 SPS Engine-on signal. 

10 Caution Reset signal (for display system lights). 

9 Test connector Outbit (set 1 in "READACCS" and 0 

in "AVGEND", indicating when Average-G is running). 

7 Operator Error light . 

6 Flash of verb and noun lights. 

5 Key Release light. 

4 Temperature Caution light. 

3 Uplink Activity light . Also used for other purposes . 

2 Computer Activity light. 


\ 
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Channel 


Function 




Bits 
ll(cont) 1 

12 15 

14 

13 

11 

10 

9 

8 

6 

5 

4 
3 
2 
1 

13 15 

14 
13 
12 
11 

10 

9-S 

7 

6 

5 


ISS Warning light. 

ISS Turn-on Delay Complete. 

S4B Cutoff (set in "SIVBOFF" and "SPSOFF"; reset in "ROO"). 

S4B Injection Sequence start (reset in "ROO"). 

Disengage optics DAC (digital to analog converter). 

Bit set in "S40.6" (and in "REDOTVC" for a restart) 
to avoid driving optics system with TVC commands if 
optics left in Computer Control mode. 

Zero optics (reset in "ROO"). 

S4B Takeover Enable. 

TVC Enable . Also enables optics rate command mode . 

Enable IMU CDU error counters. 

Zero IMU CDU's. 

Coarse Align IMU. 

Enable star tracker, not used (reset in "ROO"). 

Enable Optics CDU Error Counters (also used for TVC). 

Zero Optics CDU's. 

Enable TIME6 countdown (at l600 pps rate). 

Reset trap 32 (bits 10-1 of channel 32) . 

Reset trap 3 IB (bits 12-7 of channel 3I). 

Reset trap 3IA (bits 6-1 of channel 3I). 

Enable Standby. 

Test DSKY lights (used for alarms etc.). 

Not assigned (reset in "ROO"). 

Telemetry word order code bit. 

Block cell 0045g (uplink inputs etc.). 

Connect crosslink input to cell 0045g. 
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Function 


Channel Bits 


13 (cont) 4 


3-1 

14 15 
14 

13 

12 

11 

10 

9 

8-7 

6 

15 5-1 

16 7 
6 


Bit set to 1 to initiate transmission of VHF data 
to cell 0046 g (if bits 3-1 = OOI 2 ). 

Bits set to 001 to specify that range information 
from VHF ranging system is to be provided (see bit 4). 

Generate output pulses from CDUXGMD. 

Generate output pulses from CDUYCMD. 

Generate output pulses from CDUZCMD. 

Generate output pulses from TVCYAW/CDUTGMD. 

Generate output pulses from TVCPITCH/CDUSCMD. 

Generate output pulses from GYROCMD. 

Negative gyro torquing command. 

No gyro axis if OO2 
X gyro if OI2 
Y gyro if IO2 
Z gyro if II2 

Enable power supply associated with gyro torquing. 

Main panel DSKY key code input. 

Optics mark reject. 

Optics mark. 


30 


5-1 Navigation panel DSKY key code input. 

15 Bit sensed 0 if stable member temperature within 

design limits. 

14 Bit sensed 0 if ISS has been turned on or commanded 

to be turned on. 

13 Bit sensed 0 if IMU fail indication generated. 

12 Bit sensed 0 if CDU fail indication generated(lMU CDU's). 

11 Bit sensed 0 if IMU cage command generated (by crew) . 

10 Bit sensed 0 if CMC given control of Saturn. 

9 Bit sensed as 0 if IMU turned on and operating with 

no malfunctions . 

7 Bit sensed as 0 if optics CDU fail indication 

generated . 

5 Bit sensed as 0 if liftoff signal generated by 

S4B Instrumentation Unit . 
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Channe 1 Bits 

31 15 

Ih 

13 

12 

11 


10 


7 

6 

5 

k 

3 




32 14 

6 

5 


Function 

Bit sensed as 0 if computer in control of spacecraft 
( "G&N Autopilot Control" ) . 

Bit sensed as 0 if crew selects "Free" mode. 

Bit sensed as 0 if crew selects "Hold" mode. If 
bits 14-13 are ll 2 , this indicates that "Automatic" 
mode selected. 

Bit sensed as 0 if translation in -Z direction 
commanded . 

Bit sensed as 0 if translation in +Z direction 
commanded . 

Bit sensed as 0 if translation in -Y direction 
commanded . 

Bit sensed as 0 if translation in +Y direction 
commanded . 

Bit sensed as 0 if translation in -X direction 
commanded . 

Bit sensed as 0 if translation in +X direction 
commanded . 

Bit sensed as 0 if rotation commanded in negative 
roll direction. 

Bit sensed as 0 if rotation commanded in positive 
roll direction. 

Bit sensed as 0 if rotation commanded in negative 
yaw direction. 

Bit sensed as 0 if rotation commanded in positive 
yaw direction. 

Bit sensed as 0 if rotation commanded in negative 
pitch direction. 

Bit sensed ,as 0 if rotation commanded in positive 
pitch direction. 

Bit sensed as 0 if "proceed key" (formerly labeled 
Standby) is depressed. 

Bit sensed as 0 if negative roll commanded by 
minimum impulse controller. 

Bit sensed as 0 if positive roll commanded by 
minimum impulse controller. 
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Channel Bits 


Function 


32 (cont) 4 

3 

2 

1 

33 15 

14 
13 

12 

11 

5 

4 
2 


Bit sensed as 0 if negative yaw commanded by 
minimum impulse controller. 

Bit sensed as 0 if positive yaw commanded by 
minimum impulse controller . 

Bit sensed as 0 if negative pitch commanded by 
minimum impulse controller. 

Bit sensed as 0 if positive pitch commanded by 
minimum impulse controller. 

Flip-flop bit sensed as 0 if computer oscillator 
has stopped . 

Flip-flop bit sensed as 0 if a computer warning 
indication produced . 

Flip-flop bit sensed as 0 if an accelerometer 
fail indication produced. 


Flip-flop bit sensed as 0 if a telemetry end-pulse 
rejected, indicating an excessive downlink rate. 


Flip-flop bit sensed as 0 if an uplink input bit 
is rejected, indicating an excessive uplink rate. 


Bit sensed as 0 if computer control of optics is 
set (by crew switch). 

Bit sensed as 0 if zero optics mode is set (by 
crew switch). If bits 5-4 — 1, manual mode selected. 

Bit sensed as 0 if VHF ranging data considered OK. 


34 

35 
77 


15-1 Output channel used to contain the first word of 
a pair telemetered periodically. 

15-1 Output channel used to contain the second word of 
a pair telemetered periodically. 

9-1 Bits indicating cause of restart (for telemetry; 
reset by "writing" into channel) . 


o 
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Meanings of MODREG Values 


n 




Decimal 

Value 

Starting 

Location 

Verb 

37 

other 

Entrances 

-0 

— 


"DOFSTART" 

"S0MERR2" 

00 

— 

X 

"VERB96" 

"AUT037" 

01 

"GTSCPSS" 

X 


02 

"SLEEPIE" 


"ESTIMS" 

"GTSOPTCS" 

03 

"GCOMPVER" 


"CKOPTVB" 

(V 65 E) 

06 

"P06" 

X 


07 

— 



11 

"Pll" 


"CHKCOMED" 

15 

"PI 5 JOB" 

X 


20 

"PR0G20" 

X 

"P 86 " 

"REND 3 OS" 

21 

"PR0G21" 

X 


22 

"PR0G22" 

X 


23 

"P23" 

X 


24 

"PR0G24" 

X 


27 

"V73UPDAT" 


"V7iUPDAT" 

29 

"P29" 

X 


30 

"P 3 O" 

X 


31 

"P 3 I" 

X 

"P81" 

32 

"P32" 

X 

"P 82 " 

33 

"P 33 " 

X 

"P 83 " 

34 

"P34" 

X 

"P 84 " 

35 

"P35" 

X 

"P85" 


Title 

Fresh start (display of MODREG 
is suppressed). 

CMC Idling. 

Prelaunch Initialization. 

Prelaunch Gyro Compassing. 

(after PO 3 ) 

Prelaunch Optical Verification 
of Gyrocompassing. 

CMC Power Down (power up "POSTAND"). 

System Test (start in erasable 
memory, then to "GEOIMUTT"). 

Earth Orbit Insertion Monitor. 

TLI Initiate/Cutoff . 

Universal Tracking and Rendezvous 
Navigation. 

Groxmd Track Determination. 

Orbital Navigation. 

Cislunar Midcourse Navigation. 
Rate-aided Optics Tracking. 

(i = 0-3) CMC Update. 

Time of Longitude. 

External Delta V. 

Height Adjustment Maneuver (HAM). 
Co-elliptic Sequence Initiation (CSl). 
Constant Delta Altitude (CDH) . 
Transfer Phase Initiation (TPI). 
Transfer Phase Midcoxirse (TPM) . 
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Decimal 

Value 

Starting 

Location 

Verb 

37 

other 

Entrances 

36 

"P36" 

X 

"P86" 

37 

IIP37II 

X 


40 

"P4OCSM" 

X 

"BURNHOW" 

41 

"P41CSM" 

X 

"BURNHOW" 

"P86" 

47 

"P47CSM" 

X 


51 

"P5I" 

X 


52 

"PR0G52" 

X 

"P86" 

53 

"P5I" 

X 


54 

"PR0G52" 

X 


61 

"P6I" 

X 


62 

"P62" 

X 

"NEWRNVN" 

63 

"P63" 


"P62.I" 

"WAKEP62" 

64 

"INITROLL" 
"KEP2" (if 

V below 27,000 f; 

65 

"UPCONTRL" 


"RANGER" 

66 

"KEP2" 


"UPCONTRL" 

67 

"PREFINAL" 


"HUNTESTl" 

"KEP2" 

"UPCONTRL" 

72 

"P72" 

X 


73 

"P73" 

X 


74 

"P74" 

X 


75 

"P75" 

X 


76 

"P76ER77" 

X 

"HARTBURN" 

77 

"P76ER77" 

X 


79 

"P79" 

X 

"P85" 

81-86 

"P8l"-"P86" 


"REND3OS" 


Title 

Plane Change (PC). 

Return to Earth. 

SPS Thrusting. 

RCS Thrusting. 

Thrust Monitor. 

BKJ Orientation Determination. 

IMU Realign. 

Backup IMU Orientation Determination 

Backup IMU Realign. 

Entry Preparation. 

Entry - CM/SM Separation and 
Pre -Entry Maneuver. 

Entry Initialization. 

Entry - Post 0.05G. 
at 0.05 g). 

Entry - Upcontrol. 

Entry - Ballistic. 

Entry - Final Phase. 

LM CSI Targeting. 

LM CDH Targeting. 

LM TPI Targeting. 

LM TPM Targeting. 

Target Delta V. 

Impulsive Delta V. 

Rendezvous Final. 

Driver Programs for Minimum Key 
Rendezvous . 



) 
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Special Program Routines 


Routine 

Number 

Starting 

Location 

Title 

00 

"GOTOPOOH" 

Final Automatic Request Terminate . 


«iV37" 

Manual input of V37E xx E. 

01 

"ABCLOAD" 

Erasable and Channel Modification Routine (V25 NO? E) 

02 

"R02B0TH" 

IMU Status Check. 

03 

"DAPDISP" 

Digital Autopilot Data Load (V48E) . 

05 

"VB64"/ 

"SBANDANT" 

S-Band Antenna (V64E) . 

21 

— 

Rendezvous Tracking Sighting Mark (enabled when 
bit 14 of FLAGWRD2 = Ij no special displays). 

22 

"R22" 

Rendezvous Tracking Data Processing. 

23 

"G0T0R23'7 

"R23CSM" 

Backup Rendezvous Tracking Sighting Mark (V54E)» 

30 

"V82PERF"/ 

"V82CALL" 

Orbit Parameter Display (V82E) . 

31 

"V83PERF'7 

"R31CALL" 

Rendezvous Parameter Display Routine #1 (V83T/P79) • 

33 

— 

CMC/lGC Clock Synchronization (DSKY procedure). 

34 

"V85PERF"/ 

"R31CALL" 

Rendezvous Parameter Display Routine #2 (V85E) . 

36 

"V90PERF"/ 

"R36" 

Rendezvous Out-of -Plane Display (V9OE) . 

40 

"CLOCK JOB" 

SPS Thrust Fail (NVWORDl = -O) . 

41 

"MIDTOAVl" 

"MIDT0AV2" 

State Vector Integration. 

50 

"CAL53A" 

Coarse Align. 

52 

"R52" 

Automatic Optics Positioning. 

53 

"R53" 

Sighting Mark. 

54 

"R54" 

Sighting Data Display. 

55 

"R55" 

Gyro Torquing. 


U 
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Routine 

Number 

Starting 

Location 

Title 

56 

"R56" 

Alternate LOS Sighting Mark. 

57 

"R57" 

Optics Calibration. 

60 

"R60CSM" 

Attitude Maneuver. 

6l 

"R61CSM" 

Tracking Attitude. 

62 

"CREWMANU'7 

"R62DISP" 

Crew-defined Maneuver (V49E). 

63 

"V89PERF"/ 

"V89CALL" 

Rendezvous Final Attitude (V89E). 

66 

"R66CSM" 

Universal Tracking options #l/#5. 

67 

"R67" 

Automatic Rotation Routine (Universal Tracking 
option #2 ) . 


) 
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Checklist and Option Codes 


o 



o 


Checklist (V50 N25) 


Octal 

Code 

Location 

Significance 

0013 

"P52D" 

Key in normal or gyro torque coarse align. 

0014 

"R51K" 

Key in fine alignment option. 

0015 

"P51A" 

"P52C'' 

"R57" 

Perform celestial body acquisition. 

0016 

"MKVB50" 

"R56" 

Key in terminate mark sequence. 

0017 

"MINKDISP" 

Perform MINKEY Rendezvous selection. 

0020 

"PERF20" 

Perform MINKEY plane change gyro pulse torquing 

0041 

"P62" 

Switch CM/SM separation to up. 

0062 

"P06" 

Key CMC to standby. 

0202 

"V94ENTER" 

Perform P23 three-aocis maneuver. 

0204 

"P40SXTY" 

Key in SPS gimbal trim test option. 


Option Selection (YOL N06) 


Octal Option 

Ident if ication 
(in Rl) 

Octal Option 
Selection 
(in R2) 

Location 

Significance 

0001 


"P52B" 

Specify P52/P54 MJ 
Orientation. 


0001 


Preferred Orientation. 


0002 


Nominal Orientation. 


0003 


[rEFSMMA' 3 Orientation. 


0004 


Landing Site Orientation. 

0002 

0001 

"PR0G21" 

Specify P2l/P29 Vehicle. 

This vehicle (CSM). 


0002 


Other vehicle (LM) . 
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Octal Option 
Identification 
(in Rl) 

Octal Option 
Selection 
(in R2) 

Location 

Significance 

0007 


»’P37E*' 

Specify P37 Propulsion System. 


0001 


SPS. 


0002 


RCS. 

0024 


"PR0G20" 

Specify P20 Mode. 


0000 


Rendezvous , "VECPOINT" . 


0001 


Celestial body, "VECPOINT". 


0002 


Body rotation. 


0004 


Rendezvous, 3-axis. 


0005 


Celestial body, 3-axis. 


Option Selection (V04 N12) 


0002 


"V82CALL" 

Specify R30 Vehicle. 


0001 


This vehicle (CSM). 


0002 


Other vehicle (LM) . 

0004 


"V57CALL" 

Specify FULTKFLG Setting. 


0000 


VHP and optics. 


0001 


VHP or optics. 


Error Codes 


The follovang error codes are included in the program. The "Use" 
column indicates the type of error code that is provided: 

B signifies an entrance to the "BAILOUT" routine (to generate 
a "software restart" for a nominally recoverable problem). 

D signifies that a display of the alarm code (VO5 NO9) is 
generated by the program after "ALARM" is entered. 

L signifies an entrance to the "ALARM" routine without an auto- 
matic NO9 display by program (the PROG light is energized). 

P signifies an entrance to the "POODOO" routine to generate a 

"software restart" . If Average-G is running or EXTVBACT (l3-l) 
is non-zero (e.g. extended verb with displays), has same 
effect as a "B" type; otherwise, all restart groups are 
reset, giving entrance to "GOTOPOOH" . 

Error codes are stored in the FAILREG set of cells, and may be examined 
by manual input of VO5 NO9 E (see page GENP-31) . 


Octal 

Code 

Use 

Location 

Sienificance 

00110 

L 

"MKREJECT" 

Mark reject has been entered but ignored 
(previous marks, if any, already accepted). 

00113 

L 

"MARKRUPT" 

No input information in channel I6 when 
program interrupt #6 processed. 

00114 

L 

"MARKDIF" 

More marks made than desired. 

00115 

L 

"VBCOARK" 

V4I N9I E keyed with optics mode switch 
not at computer position. 

00116 

L 

"OPTMON" 

Optics mode switch moved from zeroing 
position before expiration of minimum 
time period (about 15 seconds). 

00117 

L 

"VBCOARK" 

V41 N9I E keyed but CMC has reserved optics 
CDU's (from gimbal test in P40 to end of 
burn) . Not expected since V4IN9I is POO only 

00120 

L 

"OPTTEST" 

Optics torque request with optics not 
zeroed since last fresh start or 
hardware restart. 

00121 

L 

"MARKDIF" 

IMU CDU angles changed by more than 0.033° 
in short interval (e.g. 0.05 seconds) 


after mark. Bypassed in P2i+. 
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Octal 

Code 

Use 

Location 

Sienificance 

00205 

L 

"SERVICER" 

Maximum accelerometer output (in excess of 
6399 pvilses in a 2-second period) . 

00206 

L 

"IMUZERO" 

Request for zeroing of IMU CDU's rejected 
since in coarse align with gimbal lock. 

00207 

L 

"IMUMON" 

Inertial sub-system turn-on request not 
present for the required 90-second period. 

00210 

L 

"IMUZERO" 

"P51" 

"R02B0TH" 

IMU not operating. 

00211 

L 

"C0ARS2" 

Excessive angle error (more than 2°) after 
IMU coarse align. 

00212 

L 

"C33TEST" 

"PIPFREE" 

Accelerometer (PIPA) fail signal with 
failure inhibit set (to inhibit generation 
of ISS warning) . 

00213 

L 

"TNONTEST" 

ISS turn-on request with IMU operate signal 
not present. 

00214 

L 

"IMUMON" 

Program using IMU when IMU turned off . 

00217 

L 

"217ALARM" 

Error return from "IMUSTALL" routine. 

00220 

L 

"R02B0TH" 

IMU not aligned (bit 13, REFSMFLG, of 
FLAG'WRD3 is zero). 

00401 

L 

"CALCGA" 

"UTOPT45" 

Desired middle gimbal angle exceeds 60°. 

00402 

L 

"PERF20" 

Second MINKEY pulse torque request must 
be honored. 

00404 

D 

"COM52" 

Priority alarm. Optics not tracking LM and 
target outside of 90° limit. 

00405 

D 

"PICEND" 

Acceptable star pair is not available. 

00406 

L 

"GOTOR23" 

V54E rejected since P20 rendezvous mode not 
running and/or bit 5(TRACKFLG) of FLAGWRDl 


is zero. 
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Octal 

Code 

Use 

Location 

Significance 

00421 

L 

"DIFE(^2" 

Overflow in orbital integration package 
(probably due to W-matrix) . 

00600 

D 

"CIRCL" 

No solution on first iteration for P3l/P32/P72 
(desired TPI LOS not intersect necessary circle) 

00601 

D 

"CIRCL" 

CSI periapsis too small (85 nmi/35000 ft). 

00602 

D 

"CIRCL" 

CDH periapsis too small (85 nmi/35000 ft). 

00603 

D 

"CIRCL" 

Time interval between CSI and CDH too small. 

00604 

D 

"CIRCL" 

Time interval between CDH and TPI too small. 

00605 

D 

"CSI/BI" 

"GAMDV25" 

"PREC125" 

"PREC175" 

"RTE36O" 

Number of iterations exceeds loop maximum. 

00606 

D 

"CSI/BI" 

CSI velocity change exceeds maximum for a 
second time. 

00611 

D 

"P33/P73B" 

"P34/P74C" 

No T^g for given elevation angle . 

00612 

D 

iip^yii 

State vector in wrong sphere of influence 
(i.e. moon's) in P37 at ignition. 

00613 

D 

"PREC175" 

Reentry angle outside of limits in P37 • 

00777 

L 

"SETISSW" 

A PIPA fail caused ISS warning. 

01102 

L 

"ERRORS" 

CMC self -test error. 

01105 

L 

"C33TEST" 

Downlink too fast. 

01106 

L 

"C33TEST" 

Uplink too fast. 

01107 

L 

"G0PR0G4" 

Restart phase table entries disagree 


(hence a fresh start is done on the assump- 
tion that erasable memory contents not valid) . 
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Octal 

Code 

Use 

Location 

Significance 

01301 

L 

"ARCCOM" 

Arc cosine or arc sine argument too big. 

01407 

L 

"S40.8" 

Vg increasing. 

01426 

D 

"S6I.IA" 

IMU orientation unsatisfactory for entry 
(program waits 10 seconds, then proceeds). 

01427 

D 

"S6I.IA" 

IMU orientation reversed for entry, so ball 
reads 0° in roll for lift down. Program 
waits 10 seconds, then proceeds. 

01520 

L 

"AUTO37" 

"ISITPOO" 

V37 (change major mode) cannot be accepted 
at this time. 

01600 

L 

"SOMEERRR" 

Overflow in prelaunch gyro drift test 
(probably) . 

01601 

L 

"S0MERR2" 

Error return from mode switching or gyro 
torquing in prelaunch program (POl, P02, 
or PO7) . 

01703 

L 

"CKm;D2" 

"MIDTOAVl” 

Ignition time slipped since insufficient 
time available for integration. 

03777 

L 

"SETISSW" 

ICDU fail caused ISS warning. 

04777 

L 

"SETISSW" 

ICDU and PIPA fails caused ISS warning. 

07777 

L 

"SETISSW" 

IMU fail caused ISS warning. 

10777 

L 

"SETISSW" 

IMU and PIPA fails caused ISS warning. 

13777 

L 

"SETISSW" 

IMU and ICDU fails caused ISS warning. 

14777 

L 

"SETISSW" 

IMU, ICDU, and PIPA fails caused ISS warning. 

20430 

P 

"GOBAQUE" 

Faulty state vector used for precision 
integration (e.g. position magnitude too low) 
causing overflow that rectification would 
not eliminate. 

20607 

P 

"COMMOUT" 

"TIMERAD" 

"TIMETfiET" 

No solution from conic routine. 

20610 

P 

"V2T100" 

P37 position vector at ignition too small. 
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Octal 

Code 


Use Location 


21204 

P 

"LONGCALL" 

"WAITLIST" 

Task insertion attempted with 0 or negative 
delay (see Section VIIA of 3420.5-27). 

21206 

P 

"ENDIDLE" 

"NVSUBUSY" 

Display system address buffers fiill, so 
another job cannot be accommodated. 

21210 

P 

"IMUSTALL" 

Job already waiting in IMU "stall" routine, 
hence another job cannot be accommodated. 

21302 

P 

Square root 
(page MATH-4) 

Square root argument too negative . 

21501 

P 

"DSPALARM" 

Display system alarm from internal ("NVSUB") 
use (such as an illegal noun). 

21502 

P 

"FLASHSUB" 

Illegal request for a flashing display (one 
already in system, so second cannot be 
satisfactorily accommodated) . 

21521 

P 

"GTSCPSS" 

New program request (for POl) cannot be 
made after Pll started. 

31104 

B 

"DELAYJOB" 

Too many jobs (more than 4) attempting to 
use job delay routine. 

31201 

B 

"FIMDVAC" 

No VAC areas available (see Section VIIB 
of 3420.5-27). 

31202 

B 

"N0VAC2" 

No job register sets available (see Section 
VIIB of 3420.5-27). 

31203 

B 

"WAIT2" 

"WTLST5" 

New task cannot be inserted successfully 
in waitlist system queue (see Section 

VIIA of 3420 . 5 - 27 ). 

31211 

B 

"TESTMARK" 

Optics use not allowed with extended verb 
being performed. 
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Job Priorities 


Given below are the priorities with which the various Jobs are executed. 
A Job of lower priority will be suspended in favor of one of higher 
priority, except where prohibited by other program logic (such as the 
"INTSTALL" routine). The sequence with which Jobs of the same priority 
are performed is somewhat indeterminate (VAC-area Jobs of a given 
priority take precedence over non-VAC-area ones, see 3420.5-27), but 
they will all be done before Jobs of lower priority. 


Priority 

Starting Address 

358 

"NBDONLY" 

3^8 

"AMBGUPDT" 

338 

"MAKEPLAY" 

3^8 

"JAMTERM" 

"NORMLIZE" 

3^8 

"CHAR IN" 
"DSPMMJB" 


"HONDO" 
"PROCKEY" 
"P47B0DY" 
"UP JOB" 


"CLOCK JOB" 
"DYNDISP" 
"RENDISP2" 
"R23CSM" 

268 

"LIGHTON" 

"NEVfDELHI" 

"RANGERDl" 

"RED0R22" 

"R22" 

"R67RSTRT" 

"R 67 START" 

258 

"ENDEXT" 

2^8 

"ENDEXT" 

"R53JOB" 

228 

"ALFLT" 
"ALFLT " 
"CHKCOHED" 
"MKVBDSP" 
"MKVB5X" 


Established By 

"SVCT3" 

"KMATRIX"; "REDAP" 

"MAKEPLAY" (change) 

"NVDSP" 

"PREREAD" 

"KEYCOM" 

"G0PR0G4"; "NEWMODEX"; 

"TSTLTS3" 

"MONREQ" 

"PROCEEDE" 

"TIGON" 

"UPSTORE" 

"CLOKTASK" 

"CLOKTASK" 

"RENDISP" 

"R23CSM" (change) 

"VHFREAD" 

"UPDTCALL" 

"VHFREAD" 

"RED0R22" (change) 

"NDUTINPT"; "R22" (change) 
"R 67 RSTRT" (change); "UPDTCALL" 

"R 67 " 

"TICKTEST" 

"ENTANSWR" 

"R52C" 

"ALLOOP" 

"ALLOOP " 

"CHKCOMED" (change, ineffective) 
"MKREJECT" 

"MARKDONE" 


Priority 

Starting Address 

Established By 

218 

"LASTBIAS" 

"PREREAD" 

"1/CHECK" 

"l/PIPA" 

208 

"GTSCPSS" 

"GTSCPSS" (change) 

"POST AND" 

"PO 6 " (via restart) 


"S40.13" 

"TIG-5"; "V97E" 


"SERVICER" 

"READACCS" 


"TIGNOW" 

"TTG/0" 

1^8 

"AZMTHCGl" 

"CHAZFOGC" 

"GCOMPVER" 

"CKOPTVB" 


"P67.1" 

"PREDICTS" 


"RANGER" 

"RANGER" (change) 


"R21END" 

"R21END" (change) 


"R23CSM" 

"GOrOR23" 

158 

"P47BODY" 

"P47B0DY" (change) 

"PLAYJUMl" 

"NORMRET" 

1^8 

"ENDMANUV" 

"ENDMANU" 

"INITDSP" 

(restart logic) 


"PIKUP20" 

"PIKUP20" (change) 


"P40BLNKR" 

"TIGBLNK" 


"RELINUS" 

"RELINUS" (change) 


"V94ENTER" 

"VERB94" (via restart) 

138 

"ENTANSWR" 

"ENTANSWR" (change) 

"GTSCPSS" 

"V37XEQ" 


"PR0G20" 

"V37XEQ" 


"PR0G21" 

"V37XEQ" 


"PR0G22" 

"V37XEQ" 


"PR0G24" 

"V37XEQ" 


"PR0G52" 

"V37XEQ" 


"P06" 

"V37XEQ" 


"P15J0B" 

"V37XEQ" 


"P23" 

"V37XEQ" 


"P29" 

"V37XEQ" 


"P30" 

"V37XEQ" 


"P31" 

"V37XEQ" 


"P32" . 

"V37XEQ" 


"P 33 " 

"V37XEQ" 


"P34" 

"V37XEQ" 


"P35" 

"V37W 


"P 36 " 

"V37XEQ" 


iip^y It 

"V37XEQ" 


"P 4 OCSM" 

"V37XEQ" 


"P 4 ICSM" 

"V37XEQ" 


"P47CSM" 

"V37XEQ" 


"P51" 

"V37XEQ" 


"P 6 l" 

"V37XEQ" 


"P62" 

"V37XEQ" 
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Priority 

Starting Address 

Established By 

13 g (cont) 

"P63" 

"WAKEP62" 

"P65.r' 

"RANGER" 


"P72" 

"V37XEQ" 


tip73 11 

"V37XBQ" 


"P74" 

"V37XEQ" 


"P75" 

"V37XEQ" 


"P76ER77" 

"V37XEQ" 


"P79" 

"V37XEQ" 


"P81" 

"V37XEQ" 


"P82" 

"V37XEQ" 


"P83" 

"V37XEQ" 


"P84" 

"V37XBQ" 


"P85" 

"V37XEQ" 


"P86" 

"V37XEQ" 


"S61.1A'' 

"S61.1C" 


” POSTBURN" 

"ENGINOFF" 

"POSTTLI" 

"SIVBOFF" 


"P40S/SV" 

"T6RESET" 

to 

o 

1 — 1 

"ATTACHIT" 

"ATTACHED" 

"DONOUN46" 

"DAPDISP" 


"LMTOCM" 

"LMTOCMSV" 


"R62DISP" 

"CREWMANU" 


"S40.9" 

( "SETUP. 9" 


"V89CALL" 

"V89PERF" 

0^8 

"HARTBURN" 

"AFTERBRN" 

"R36" 

"V90PERF" 


"V82G0FF1" (VAC area) 

"V82G0FLP" 


"V82G0N1" (VAC area) 

"V82CALL" 


"V82PERF" (no VAC area) 

"V82PERF" (change) 


"MARKDISP" 

"MARKDIF" 

"R31CALL" 

"V83PERF"; "V85PERF" 


"SBANDANT" 

"SBANDANT" (change) 


"STATINTl" 

"NDUTINPT"; "ROO" (yia 
restart logic); "STATEINT 


"V67CALL" 

"V67" 


"V83PERF" 

"P79A" 

048 

"SBANDANT" 

"SBANDANT" (change); "VB64" 

038 

"V83CALL" 

"R31CALL" 

to 

1 — 1 
o 

"ATERJOB" 

"ATERTASK" 

Same as 

"ENDRET2" 

"ENDRET2" (change) 

user 

"INITDSP" 

"INITDSP" (change) 


"MAKEPLAY" 

"GODSPR&tl" 


"NV50DSP" 

"NV5ODSP" (change) 
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Erasable Memory Pre launch Load 


Listed below are the quantities in erasable memory which should be 
(or, in a few cases, can be) loaded as part of the prelaionch erasable 
memory load. The "Address" information gives the erasable memory bank 
format of the address, followed by the erasable CADR format (if different) 
needed if the cell is loaded by specification of the machine address. 

An asterisk to the left of the address means that the quantity would 
have to be loaded by uplink or DSKY means (other than by use of a noun 
assigned specifically to that quantity) in the event that re-initialization 
of the complete erasable memory were necessary in flight (these items 
exclude such quantities as the state vector etc., for which an uplink 
capability must exist for the nominal mission) . 


The "Reference" column 
significant application (or 
docimient where the quantity 

gives one routine where the quantity has a 
is updated), followed by the page in this 
is defined (scale factor, units, etc.). 

Address 

(Octal) 

Memory 

Notation 

Document 

Notation 

Reference 

Comments 

0075 

FLAGWRDl 

FLAGWRDl 

"DOFSTART" 
pg. 47 

Bit 12(N0D0P01) left alone until 
start Pll, when bit set 1. 

0077 

FLAGWRD3 

FLAGWRD3 

"DOFSTART" 
pg- 51 

Bit 13(REFSMFLG) left alone by 
fresh start. 

0104 

FLAGWRD8 

FLAGWRD8 

"DOFSTART" 
pg. 59 

Bits 12(CM00NFLG), ll(LMOONFLG), 
and 8(SURFFLAG) left alone by 
fresh start. 

0106 

FIGWRDIO 

FIGWRDIO 

"DOFSTART" 
pg. 63 

Bit ll(HDSUPFLG) left alone 
by fresh start. 

-'^374 

C31FLWRD 

C31FLWRD 

"RCSATT" 
pg. DPRC-25 

Backup for bits 15-13 of channel 

31 and bits 5-4 of channel 33 . 

^s-0737 

NO. PASS 

C 

nopass 

"R52C" 
pg. OPTC-25 

Frequency of R52 check in P24 to 
see if new landmark estimate should 
be computed. 

1016 

N26/PRI 

N26dPRI 

"VBRQEKEC" 
pg. DATA -38 

R1 of N26. Set 0 to lock out 

V30 and V31. 

1133-4 

PGNCSALT 

%gncsat 

"Pll" 

pg. BOOS-10 

Altitude of IMU above 6,373,338 
meters (used to compute initial 
conditions for state vector). 

1135-6 

PADLONG 

*^pdong 

"Pll" 

pg. BOOS -10 

Pad longitude used to compute 
initial conditions for state 
vector at liftoff. 

*1341 

CDUCHKWD 

Q 

cduchkwd 

"MARKRUPT" 
pg. OPTC-25 

Delay before checking IMU CDU 
after a non-P24 optics mark. 
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Address 
f Octal) 

Memory 

Notation 

Docimient 

Notation Reference 

Cornments 

-!a342-3 

RTEDl 

C ^ "RTE 36 O" 

pg. RTER -19 

Constant term for desired flight 
path angle cotangent in P37 . 

-'^1344 

DVTHRESH 

C, , "S40.8" 

dvthresh STER-9 

Velocity increment gate for 
Delta-V monitor. 

-^-1345-6 

HORIZALT 

C, . _ "HORIZ" 

horizalt t!Eks-Z9 

Horizon altitude used in P23 
(with HORISLP) above Fischer 
ellipse . 

^^1347 

ALTVAR 

C "REND7" 

altvar MEAS-2B 

A priori measurement accuracy 
of back-up optics in R23 . 

^s-1350 

EMDOT 

C , , "S40.8" 

emdot STER-9 

Mass flow rate for SPS engine . 

^^3,1452 

(1452) 

PBIASK 

C . - . "l/PIPA" 

pipabias^ pg. imuc-20 

PIPA bias correction. 

*3,1453 

(1453) 

PIPASCFX 

C . „ "l/PIPA" 

pipascf^ pg. IMUC-21 

PIPA scale factor correction. 

X 

*3,1454 

(1454) 

PBIASY 

C . "l/PIPA" 

pipabiaSy pg. IMUC-20 

PIPA bias correction. 

y 

*3,1455 

(1455) 

PIPASCFY 

C . ^ "l/PIPA" 

P^Pascfypg. imuC-21 

PIPA scale factor correction. 

y 

*3,1456 

(1456) 

PBIASZ 

P n*] /pTPAn 

pipabias^ pg. IMUC-20 

PIPA bias correction, 
z 

*3,1457 

(1457) 

PIPASCFZ 

Wscf "l/PIPA" 
pipascl^ pg. IMUC-21 

PIPA scale factor correction, 
z 

* 3,1460 

( 1460 ) 

NBDX 

C ^ , "l/PIPA" 

pg. IMUC-20 

X Gyro bias correction. 

* 3,1461 

( 1461 ) 

NBDY 

C ^ ^ "l/PIPA" 

pg. IMUC-20 

Y Gyro bias correction. 

* 3,1462 

( 1462 ) 

NBDZ 

C "l/PIPA" 

™ pg. IMUC-20 

Z Gyro bias correction. 

* 3,1463 

( 1463 ) 

ADIAX 

C , "l/PIPA" 

pg. IMUC-20 

X Gyro input axis drift. 

* 3,1464 

( 1464 ) 

ADIAY 

C "l/PIPA" 

pg. IMUC-20 

Y Gyro input axis drift. 
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Address 

(Octal) 

Memory 

Notation 

Document 

Notation 

Reference 

Cornments 

^3,1465 

(1465) 

ADIAZ 

0 . 
ad,z 

"l/PIPA" 
pg. IMaC-20 

Z Gyro input axis drift. 

^<■3,1466 

(1466) 

ADSRAX 

C 

sr,x 

"l/PIPA" 
pg. IMUC-21 

X Gyro spin axis drift. 

''3,1467 

(1467) 

ADSRAY 

C 

sr,y 

"l/PIPA" 
pg. IMaC-21 

Y Gyro spin axis drift. 

"3,1470 

(1470) 

ADSRAZ 

C 

sr,z 

"l/PIPA" 
pg. IMaC-21 

Z Gyro spin axis drift. 

-"-3,1706-10 TEPHEM 

(1706-10) 

T u 
eph 

"Pll" 

pg. BOOS-13 

Triple precision time between 
ephemeris origin and clock 
origin (updated at liftoff). 

-5^3,1711-6 UNITW 

(1711-6) 

^unitw 

"CALCGRAV" 
pg. GENP-29 

Earth polar axis unit vector 
(scale factor BO) in 
reference coordinates. 

"3,1763 

(1763) 

EIMPISEC 

*^eimplsec 

"S40.13" 
pg. STER-9 

Impulse from first second of 

SPS thrusting. 

"3,1764 

(1764) 

EFIMPOl 

p 

efimpOl 

"S40.13" 
pg. STER-9 

Slope of minimum impulse curve 
for SPS 0-1 second. 

"3,1765 

(1765) 

EFIMPI6 

Q 

efimpl6 

"S40.13" 
pg. STER-9 

Slope of minimum impiilse curve 
for SPS 1-6 seconds, i.e. thrust. 

"3,1766 

(1766) 

E3J22R2M 

Q 

e3 j22r2m 

"OBLATE" 

pg. ORBI-24 

J22 't®5nn for lunar gravity 
model . 

"3,1767 

(1767) 

E32C31RM 

Q 

e32c31rm 

"OBLATE" 

pg. ORBI-24 

C„, term for l\inar gravity 
model . 

"3,1770 

(1770) 

TRUNSF 

Q 

trunsf 

"RATESUB" 

pg. OPTC-25 

Scale factor for rate command to 
optics trunnion in P24. 

"3,1771 

(1771) 

SHAFTSF 

^shaftsf 

"RATESUB" 
pg. OPTC-25 

Scale factor for rate command to 
optics shaft in P24. 

-5<-4,1400 

(2000) 

WRENDPOS 

WRENDPOS 

"REND5C" 
pg. MEAS-38 

W matrix initialization for 
rendezvous. Can be changed 
by V67 processing, and "^1645". 

"4,1401 

(2001) 

WRENDVEL 

WRENDTEL 

"REND5C" 
pg. MEAS-38 

W matrix initialization for 
rendezvoiis . Can be changed 


by V67 processing, and "VNI645". 
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Address Memory Document 


(Octal) Notation 

Notation 

Reference 

Comments 

*4,1402 RMAX 
(2002) 

C 

rmax 

"REND7" 

pg. MEAS-29 

Maximum automatic rendezvous 
position update. 

*4,1403 VMAX 

(2003) 

C 

vmax 

"REND7" 
pg. MEAS-29 

Maximum automatic rendezvous 
velocity update. 

*4,1404 WORBPOS 

(2004) 

WORBPOS 

"S22.1" 
pg. MEAS-38 

W matrix initialization for 

P22. Can be changed by V67 
processing. 

*4,1405 WORBVEL 

(2005) 

WORBVEL 

"S22.1" 
pg. MEAS-38 

W matrix initialization for 

P22. Can be changed by V67 
processing. 

*4,1406 S22WSUBL 
(2006) 

*^s22wsubl 

"S22NXTIN" 

pg. ORVN-24 

W matrix initialization for 

P22 for known landmark. 

*4,1407-10 RPVAR 

(2007-10) 

C 

rpvar 

"S22NXTIN" 

pg. ORVN-24 

Variance of primary body radius 
vector, used to compute P22 

W matrix initialization for 
unknown landmark. 

*4,1411-6 5O4IM 
(2011-6) 

%041ni 

"RP-TO-R" 
pg. COOR-I3 

Libration correction vector 
for moon (BO radians) 

*4,1417-20 EMSALT 

(2017-20) 

^emsalt 

"S61.2" 
pg. DISP-20 

Entry monitoring system 
initialization altitude . 

*4,1421-2 ATIGINC 
(2021-2) 

*^atiginc 

"P35" 

pg. BURN -37 

CSM-active time delay in P35 
until mid course maneuver 

*4,1423-4 PTIGINC 

(2023-4) 

*^ptiginc 

"P75" 

pg. BURN-37 

CSM-passive (i.e. IM-active) 
time delay in P75 until 
midcourse maneuver. 

*4,1425-32 RLS 

(2025-32) 

RLS 

"SETRE" 
pg. COOR-19 

Landing site position vector. 
Can be updated (in "S22I=N") 
in P22. 

*4,1433-5 TIMEMO 

(2033-5) 

*^titnemo 

"LSPOS" 
pg. COOR-I3 

Triple precision elapsed time 
between ephemeris origin and 
midpoint of interval for which 
l\anar-position polynomial is 
valid . 

*4,1436-43 VECOEM 

(2036-43) 

^cemOO 

"LUNPOS" 
pg . COOR-I4 

Vector coefficient of hi^est- 
order term (t'^ for position) 
in lunar-position polynomial. 


*4,1444-51 VECOEM +6 C 
(W-51) 


"LUNPOS" 
pg . COOR-I4 


Vector coefficient of next 
hi^est-order term (t° for 
position) in limar-position 
polynomial. 
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Address 

(Octal) 

Memoiy 

Notation 

Document 

Notation 

Reference 

Comments 

*4,1452- 

4,1523 

(2052- 

2123) 

VECOEM +12 C 

~vceinl2 

to 

^ceni48 

"LUNPOS" 
pg. COOR-I4 

Vector coefficients of subsequent 
terms (t"^ through t^ for position) 
in lunar-position polynomial. 

*4,1524-31 VECOEM +54 C 

(2124-31) -vcem54 

"LUNPOS" 
pg. COOR-I4 

Vector coefficient of constant 
(non-time dependent) term in 
lunar-position polynomial. 

*4,1532-7 RESO 

(2132-7) 

C 

-reso 

"LSPOS" 
pg. COOR-I3 

Position vector of sun relative 

to earth at C . . 

timemo 

*4,1540-5 VESO 

(2140-5) 

C 

“veso 

"LSPOS" 
pg. COOR-I4 

Velocity vector of sun relative 

to earth at C , . 

tunemo 

*4,1546-7 OMEGAES 

(2146-7) 

C 

omegaes 

"LSPOS" 
pg. COOR-I3 

Angular velocity of C at 

Q r6so 

timemo ' 

^^4,1754 

(2354) 

DTE 

^dtf 

"SIVBCOMP" 
pg. BOOS-10 

PI5 S4B cutoff time delay. 

*4,1767-70 HAMDELH 

(2367-70) 

*^hamdelh 

"P3IRT" 
pg. BURN-37 

P3I altitude difference. 

-'^4,1771 

(2371) 

WRDTIME 

*^wrdtime 

"AUTOW" 
pg. MINK-11 

Minimum time between automatic 

W matrix initializations. 

'^4,1772 

(2372) 

MINBLKTM 

Q 

mi Jib Ik tm 

"AUTOW" 
pg. MINK-10 

Check for time since last mark 
in automatic W matrix initialization 

->^4,1773 

(2373) 

TEEFCOMP 

^tbefcomp 

"AUTOW" 
pg. MINK-10 

Check of time until final target 
computation in auto W matrix logic. 

%,1774 

(2374) 

BRNBIICTM 

Srnblktm 

"AUTOW" 
pg. MINK -10 

Interval w/o marks before & 
after doing a maneuver. 

->^4,1775 

(2375) 

MAXWTIME 

*^maxwtime 

"AUTOW" 
pg. MINK-10 

Maximum desired time between 
successive W matrix initializations. 

-='4,1776 

(2376) 

FINCMPTM 

^fincmptm 

"AUTOW" 
pg. MTOK-IO 

Time before maneuver of final 
mark. 

^'4,1777 

(2377) 

INTVAR 

^intvar 

"REND7" 

pg. MEAS-29 

Integration variance employed 
in R22 . 

5,1400-1 AZIMUTH 
(2400-1) 

^azmth 

"GTSCPSS" 
pg. PREL-10 

Azimuth of vehicle Z-axis. 
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Address 

C Octal) 

Memory 

Notation 

Document 

Notation 

Reference 

Comments 

5 , 1402-3 

(2402-3) 

LATITUDE 

0 4 -. 

atd 

"ESTIMS" 
pg . PREL -10 

Launch pad latitiide. 

5,1432 

(2432) 

TAZELl 

TAZ^ 

"GCOMPVER" 
pg. PREL-I3 

Azimuth of optics target # 1 . 

5,1433 

(2433) 

TAZELl +1 

TEL^ 

"GCOMPVER" 
pg. PREL-13 

Elevation of optics target # 1 . 

5,1434 

(2434) 

TAZELl +2 

TAZ^ 

"GCOMPVER" 
pg. PREL-13 

Azimuth of optics target # 2 . 

5,1435 

(2435) 

TAZELl +3 

TEL2 

"GCOMPVER" 
pg. PREL-13 

Elevation of optics target # 2 . 

5,1633-4 LAUNCHAZ 

(2633-4) 

UUNCHAZ 

"GTSCPSS" 
pg. PREL -12 

Desired launch azimuth. Can 
be updated using V78E. Should 
be loaded with same bit pattern 
as would be produced by V 78 E, 
to avoid re -initializing of 
gyro compassing unnecessarily. 

-«- 6,1400 

(3000) 

WMIDPOS 

WMIDPOS 

"POINTAXS" 
pg. MEAS -38 

W matrix initialization for 
midcourse navigation. Can be 
changed by V67 processing. 

^<- 6,1401 

(3001) 

WMIDVEL 

WMIDVEL 

"POINTAXS" 
pg. MEAS-38 

W matrix initialization for 
midcourse navigation. Can be 
changed by V67 processing. 

•5^6,1402-3 RVAR 

(3002-3) 

C 

rvar 

"REND 7 " 

pg. MEAS-29 

Value of (percent error/lOO) 
for VHF ranging measurement. 

■ 5 ;- 6 , 1404-6 RVARMDJ 

(3004-6) 

C 

rvarmin 

"REND 7 " 

pg. MEAS-29 

Triple precision complement 
of minimum variance for VHF 
measurement (a negative number 
in memory for coding ease) . 

- 5 ;- 6,1407 

(3007) 

LADPAD 

*^adpad 

"STARTENT" 
pg. ENRY -18 

Nominal L/D. 

*6,1410 

(3010) 

LODPAD 

*^odpad 

"STARTENT" 
pg. ENRY -18 

Final phase L/D. 

*6,1411 

(3011) 

ALFAPAD 

Q 

alfapad 

"P62.I" 
pg. ENTP -6 

Nominal entry trim angle 
(expected to be negative 


number) . 


O 
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Address 

(Octal) 

Memory- 

Notation 

Document 

Notation 

Reference 

Cornments 

^*■ 6,1412 

( 3012 ) 

P 37 RANGE 

C or, 

p 37 range 

"RTEVN" 
pg. RTER-19 

Override on entry range (not time) 
in P37 if cell non-zero. 

^^ 6,1413 

( 3013 ) 

ETDECAY 

^tdecay 

"S 40 . 8 " 
pg. STER -10 

Value of thrust decay (cell 
subtracted from time-to-go). 

^*• 6,1414 

( 3014 ) 

BKPRIME 

*^ekprimeQ 

"TVCINITl" 
pg. DPTV-16 

LM-off cross-product steering 
gain factor (for TVC DAP input). 

* 6,1415 

( 3015 ) 

EKPRIME +1 C , . 

ekprime 

"TVCINITl" 

1 pg. DPTV-16 

LM-on high bandwidth cross- 
product steering gain factor. 

*6,1416 

(3016) 

EKTDC/I 

*^ektlxdiQ 

"TVCINITl" 
pg. DPTV-16 

LM-off TVC DAP nominal gain. 

''6,1417 

(3017) 

EKTDC/I +1 C , 

' ektlxdi, 

"TVCINITl" 

1 pg. DPTV-16 

LM-on high bandwidth TVC DAP 
nominal gain. 

*6,1420 

(3020) 

EKTLK/I +2 C , 

' ektlxdi, 

"SWICHOVR" 

2 pg. DPTV-16 

LM-on low bandwidth TVC DAP 
nominal gain. 

*6,1421 

(3021) 

EREPFRAC 

C , "TVCIMITl" 

erepfracQ 

LM-off TVC DAP repetitive c.g. 
correction fraction. 

*6,1422 

(3022) 

EREPFRAC +1 "TVCINITl" iM-on high b.w. TVC DAP repetitive 

1 pg. DPTV-17 c.g. correction fraction. 

6,1423 

(3023) 

PACTOFF 

PACTOFF 

"TVCINITl" 

pg. DPTV-24 

TVC DAP pitch trim. Loaded 
by N48. 

6,1424 

(3024) 

YACTOFF 

YACTOFF 

"TVCINITl" 
pg. DPTV-27 

TVC DAP yaw trim. Loaded 
by N48. 

*6,1425 

(3025) 

HBNIO 

*^hbnlOQ 

"TVCINITl" 

pg. DPTV-17 

LM-on high bandwidth filter. 

*6,1426 

(3026) 

HBNII/2 

*^hbnlO^ 

"TVCINITl" 
pg. DPTV-17 

LM-on high bandwidth filter. 

"6,1427 

(3027) 

HBN 12 

^^hbnlO^ 

"TVCINITl" 
pg. DPTV-17 

LM-on high bandwidth filter. 

*6,1430 

(3030) 

HBDll /2 

^^hbnlO^ 

"TVCINITl" 

pg. DPTV-17 

LM-on high bandwidth filter. 

"6,1431 

(3031) 

HBD 12 

^hbnlO, 

4 

"TVCINITl" 
pg. DPTV-17 

LM-on high bandwidth filter. 
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Address 

Memory 

Document 


(Octal) 

Notation 

Notation 

Reference 

->' 6,1432 

( 3032 ) 

HBN 20 

^hbnlO- 

"TVCINITl" 
pg. DPTV-17 

-=' 6,1433 

( 3033 ) 

HBN 21/2 

^hbnlO^ 

"TVCINITl" 

pg. DPTV-17 

^' 6,1434 

( 3034 ) 

HBN 22 

^hbnlO^ 

"TVCINITl" 
pg. DPTV-17 

^' 6,1435 

( 3035 ) 

HBD 21/2 

^hbnlOg 

"TVCINITl" 
pg. DPTV-17 

^'6,1436 

(3036) 

HBD 22 

'^hbnlO^ 

"TVCINITl" 

pg. DPTV-17 

*6,1437 

(3037) 

HBM30 

^hbnlO^Q 

"TVCINITl" 
pg. DPTV-17 

■*<- 6,1440 

(3040) 

HBN31/2 

*^hbnlO^^ 

"TVCINITl" 
pg. DPTV-17 

-<- 6,1441 

(3041) 

HBN 32 

^hbnl0^2 

"TVCINITl" 
pg. DPTV-17 

^' 6,1442 

(3042) 

HBD3I/2 

^hbnlO^^ 

"TVCINITl" 
pg. DPTV-17 

*6,1443 

(3043) 

HBD32 

^hbnlO, , 
14 

"TVCINITl" 
pg. DPTV-17 

6,1465 

(3065) 

DAPDATRl 

DAPDATRl 

"S 41 . 2 " 
pg. DPIR -12 

6 , 1466 
( 3066 ) 

DAPDATR 2 

DAPDATR 2 

"S 41 . 2 " 
pg. DPIR-13 

6,1472 

(3072) 

USMMASS 

LEMMASS 

"FIXCW" 
pg. DPIR -21 

6,1473 

(3073) 

CSMMASS 

CSMMASS 

"FIXCW" 
pg. DPIR -11 

6,1661 

(3261) 

POLINUM 

C 

ponum 

"ATERJOB" 
pg. BOOS -11 

6,1662-77 POLINUM ■ 
(3262-77) 

tl C 

pycA 

"ATERJOB" 
pg. BOOS-il 

6,1700-1 

(3300-1) 

SATRLRT 

SATRLRT 

"ATERJOB" 
pg. BOOS-13 


Comments 

LM-on high bandvd.dth filter. 
IM-on high bandvd.dth filter. 
LM-on high bandwidth filter. 


LM-on high bandwidth filter. 


LM-on high bandwidth filter. 


LM-on high bandwidth filter. 


LM-on high bandwidth filter. 


LM-on high bandwidth filter. 


LM-on high bandwidth filter. 

) 

LM-on high bandwidth filter. 


DAP control word. Loaded by 
R 1 of N 46 . 

DAP control word. Loaded by 
R 2 of N 46 . 

LM mass . Loaded by R 2 of N 47 . 


CSM mass. Loaded by R 1 of N 47 j 
and updated (double precision) 
in "S40.a". 

Booster pitch polynomial degree 
information. 

Booster pitch polynomial (stored 
double precision, with lowest- 
powered term in 3262 - 3 , etc.). 

Booster roll rate (sign can be 
changed in "Pll"). 
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Address Memory Document 

(Octal) Notation Notation Reference 

6,1702 RPSTART C ^ ^ "ATERJOB" 

( 3302 ) rpstart 


6,1703 POLYSTOP C ^ "ATERJOB" 

(3303) polystop 


*6,1710 SATRATE C , "SATSTICK" 

(3310) satrtg BOOS -11 


*6,1711 SATRATE +1 C "SATSTICK" 

(3311) satrt^ BOOS -11 


*6,1712 SATRATE +2 C "SATSTICK" 

(3312) satrt2 pg^ BOOS -11 


*6,1713 SATRATE +3 C , , "SATSTICK" 
(3313) satrtg pg^ BOOS -11 


6,1720 SATSCALE C ^ , "NOPOLIM" 
( 3320 ) satscale 


*6,1775-6 HORISLP 
( 3375 - 6 ) 


C 


horislp 


"HORIZ" 
pg. MEAS -28 


7,1400-1 LAT(SPL) LATSPL 

(3400-1) 


"DELRSPL" 

pg. DISP-27 


7,1402-3 LNG(SPL) LNGSPL "DELRSPL" 

(3402-3) pg. DISP-27 


Comments 


Time from CMC-deduced liftoff 
when roll and pitch drive of 
error needles (with e.g. pitch 
polynomial) should start. 

Value of c 
time minus 
stop time 
of pitch polynomial evaluation 
should halt (quantity a negative 
number in memory) . 

Number of pulses (B 12 ) loaded 
into error counter for no RHC 
deflection in Saturn DAP (e.g. O). 

Number of pulses loaded into 
error counter for positive RHC 
deflection in Saturn DAP. 

Number of pulses loaded into 
error counter (with sign) for 
negative RHC deflection in 
Saturn DAP. 

Number of pulses loaded into 
error coimter for simultaneous 
positive and negative RHC input 
in Saturn DAP (e.g. O). 

Gain factor for automatic Saturn 
steering in Pll. 

Slope of horizon altitude used 
in P 23 (is subtracted from other 
terms) . 

Target latitude for R 1 of N50 
(R30 quantity in POO/Pll) . It 
is loaded by R 1 of N 61 . 

Target longitude for R 1 of N50 
(R30 quantity in POO/Pll) . It 
is loaded by R 2 of N6I. 


omplement of (stop 
when performance 


IS 


O 
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In addition to the quantities listed on the previous pages, the 
"LM" state vector should be satisfactory for use in the periodic POO 
state vector integration, as well as for the integration done at the 
end of Average-G. If the LM vehicle is not of concern, the POO 
integration can be bypassed, and the integration at the end of Average-G 
simplified, by setting bit 8(SURFFLAG) of FLAGWRD8 = 1 (can be set by 
V44L snd reset by V4,5E) . Otherwise, the IM state vector can be 
initialized by a P27 (V7l) update, by V66E to move the GSM state vector 
into IM cells, or by the following erasable initialization: 

Position vector into Rj,gj,^2jn (1^26-1633) and RCV^ (I66O-I665). 

Velocity vector into ij.Qgtltn (I634-I64I) and VCV^ (I666-I673). 

Time tag into T^^^ (1642-I643). 

Zeros into DELTAV^ (I644-I65I), NUV^ (l652-l657), T^^ (I674- 

1675), and XKEP^ (I676-I677) . ° 

See Orbital Integration (and "MOVEPLEM") for these quantities. 


In order to complete the initialization fxonctions, RO3 (V48E) 
should be done, with DAPDATRl digit A = 1,2,5, or 6 (to allow the 
"MASSPROP" routine to be done, which initializes the MASS cell). 

In the event that the memory must be initialized in flight, cell 
1477 (GCOMPSW) should be checked for a non-negative value: it is 
unnecessary to set the cell as part of the prelaunch load, since the 
program sets it to 0 before ^entering P02 from POl. 

See Uplink Processing for other memory addresses which may be 
of Interest for initialization. 
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R62DISP Established by "CREWMANU" for a V 49 E 

TS = 0622 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 

Set bit 6(3AXISFLG) of FLAGWRD5 = 1 

Perform "R60CSM" 

Proceed to "ENDEXT" 

V89CALL Established by "V 89 PERF" for a V89E. This is R 63 

Perform "R02B0TH" 

Set bit 8 (AZIMFUG) of FIGWRDll = 0 
UTPIT = 0 
UTYAW = 0 
TS = 0678 

vn 

Perform "GOFLASHR" : if terminate, proceed to "ENDEXT" 

if proceed, proceed to "V 89 RECL" 
otherwise, proceed to previous line 

TS = 100^ and perform "BLANKET" (R3BLNK) 

End of job 

V89RECL 

R 63 TIME = T + K , , . 

now dplmin 

Perform "R 63 " 

TS = O 6 I 8 

vn 

Proceed to "GOFLASH": if terminate, proceed to "ENDEXT" 

if proceed, proceed 
otherwise, proceed to "V 89 RECL" 

Set bit 6(3AXISFIG) of FLAGWRD5 = 0 

Perform "R 6 OCSM" 

Proceed to "ENDEXT" 
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R60CSM (Entered from "P 40 SXTY" (P 40 ,P 4 l), "R6OCALL" (P 23 ) , "R6ICSM" , 

"R 62 DISP", and "V89RECL") 

TEMPR60 = Return address 

If bit 6(3AXISFLG) of FLAGWRD 5 = 0 : 

Perform "VECPOINT" 

THETAD = TS 
Proceed to "TOBALL" 

TOBALL 

TS = O6I8 

vn 

Perform "G 0 PERF 2 R" : if terminate, proceed to "R6ITEST" 

if proceed, skip next 2 lines 
othervd.se, proceed to "ENDMANUl" 

Perform "CHKLINUS" 

End of job 

If bit 6 ( 3 AXISFLG) of FLAGWRD5 = 0 : 

Perform "VECPOINT" 

THETAD = TS 
TS = channel 31 

v 

If bits 14-13 of C3IFLWRD 7^002: 

TS = C3IFLWRD 

If bits 15-13 (G&N Autopilot Control complement. Free Mode complement, 
and Hold Mode complement) of TS ^ ^^^2 Automatic) 

Proceed to "TOBALL" 

TS = 0618 

vn 

Perform "GODSPR" 

Perform "CHKLINUS" 

Proceed to "KALCMAN3" ("ENDMANU" establishes "ENDMANUV" for exit) 
ENDMANUl 

Proceed to address specified by TEMPR60 
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ENDMANUV (Established by "ENDMANU") 

If bit 7(AUT0SEQ) of FIGWRDIO = 1: 

If bit 5(TRACKFLG) of FLAGWRDl = 1: 

Proceed to "ENDMANUl" 

Proceed to "TOBALL" 

CHKLINUS 

If bit 12(PDSPFLAG) of FLAGWRD4 = 0: 

Return 

TBASEl = (Return address -3 for last display, i.e. the TS setting) 

Set restart group 1 to phase 7 (1.7. causing "RELINUS" to be established 
with priority lOg if a restart) 

TS = lOOg and perform "BLANKET" (PRIOREQ) 

Return 

RELINUS (Entered for restart group 1.7, due to "CHKLINUS") 

If bit 5(TRACKFLG) of FUGWRDl = 0: 

Proceed to "FIXDB" 

Set bit 12(PDSPFLAG) of FLAGWRD4 = 1 
If bit 9(UTFLAG) of FLAGWRD8 = 0: 

Set bit lO(LMTRG) of FLAGWRDl = 1 
OPTIND = +0 

Set bit 14(R21MARK) of FLAGWRD2 = 1 
Change priority of present job to 14g 

Proceed to address specified by TBASEl (regenerate last display 
due to setting of this cell in "CHKLINUS") 

R61TEST 

If MODRBG = 0, proceed to "ENDMANUl" 

If bit 12(PDSPFLAG) of FLAGWRD4 = 0, proceed to "GOTOPOOH" 

Proceed to "TRACKTRM" 
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VEC POINT 


TS^^ — CDU (in push-down address 25D) 

TS = TS^ 

X2 = "MIS” 

Perform "CDUTODCM" 

TS = unit ( POINTVSM ^I^ ) (in push-down address 28D) 

TS^ - TS •*;- SC AXIS 

If |TSJ - <0 (or if unit TS^ overflows): 

If TS • SCAXIS ^0: 

TS = TS^ 

Return 

TS = unit(MIS^ * unitX) -x- SCAXIS 

If jTSj - <0 (or if unitTS overflows): 

TS = unitX 

COF = unitTS (unit operation omitted if TS set to unitX) 

TS = ^ (i.e. 180°) 

Proceed to "COMPMATX" 

COF = - unitTS^ 

TS = cos“l (SCAXIS • TS) 

Proceed to "COMPMATX" 


NOTE: See Apollo Software Information Memo 5-68-9, "VECPOINT 
Automatic Maneuvers for Program Sundisk," dated 30 May 
1968, by S. A. Gorman for discussion of large attitude 
maneuver equation design. The document is published by 
MSC's Flight Software Branch. 
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COMPMATX 


Perform "DELCOMP" 
XI = "MIS" 

X2 = "DEL" 


Perform "MXM3" (leaves |t^ - |MF^ ) 


If jTS^I- ^s±ng±m P^'oceed to "FINDGIMB" (TS^ 

If JSCAXISJ - ^0, proceed to "FINDGIMB" 

[mis] = [ts] 


is 4th element of 
matrix jj^ , 
sine middle 
gimbal angle ) 


TS = (MIS^ sgn MIS^) -- SCAXIS 
COF = - SCAXIS sgn TS^ 

-X. 

TS - K 

vecangl 

If (sCAXIS 1 - K . o < 0: 

' X' sinvec2 

TS = K 

vecang2 

Perform "DELCOMP" 


XI = "MIS" 


X2 = "DEL" 

Perform "MXM3" 

Proceed to "FINDGIMB" 

FINDGIMB 

XI = "TS" 

Perform "DCMTOCDU" 

TS = TS, converted to twos complement single precision, B-1 revolutions 
Retiirn (to routine calling "VECPOINT") 
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KALCMAN3 


(Entered from "STKTEST" and "TOBALL") 


BCDU = CDU 

X2 - "MIS" 

TS = BCDU 
Perform "CDUTODCM" 

X2 = "MFS" 

TS = THETAD 
Perform "CDUTODCM" 

XI = "MIS" 

Perform "TRANS POS" 

[tmi^ = [t^ 

XI = "TMIS" 

X2 = "MFS" 

Perform "MXM3" 

^Fl] = [ts] 

XI = "MFI" 

Perform "TRANSPOS" 

(rMF^] = [ts] 

COFSKEW = (TMFI. - MFI., MFI„ - TMFI^, TMFI - MFI ) 
- t 5'’ 2 2' I I 

CAM = i (MFIq + MFIg - I + MFI^) 

AM == cos“^ CAM 

Inhibit interrupts 
HOLDFLAG = -1 
CDUXD = THETAD 
Proceed to "NOGO" 
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(Tag here "CHECKMAX") 


n 


O 


COF - unitCOFSKEW 


Proceed to "LOCSKIRT" 

[mFISH^ = i ( ^MFl] + |JMF|] ) 

TS = 1 - CAM, with magnitude limited < 2 


COF = unit 




MFISYMg - 


5 TS 


If COF V COF-,. and COF COF : (COF largest component) 

X ^ «y X z -X 

COF = COF sgn COFSKEW^ (Tag here "METHODl") 

X 

COF = COF sgn MFISYMn 

y y ^ 1 

COF = COF sgn MFISYMg 
z z 2 

Proceed to "LOCSKIRT" 

If COFy> COF^ and COF^^COF^: (COF^, largest component) 

COF = COF sgn COFSKEW (Tag here "METH0D2") 

«y 

COF^ = COF^ sgn MFISYM. 

COF^ = COF^ sgn MFISYMg 
Proceed to "LOCSKIRT" 


If COF^^ COF^ and C0F2> COF^ (as it will): (COF^ largest) 

COF = COF sgn COFSKEW (Tag here "METH0D3") 

z 

COF^ = COF^ sgn MFISYM 2 
COF,, = COF sgn MFISYM. 

y y ® 5 

Proceed to "LOCSKIRT" 


TRANS POS 



%l0 

%l3 

%lg 

[TS]- 

^Xli 


^Xl^ 



%l5 



Return 
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CDUTODCM 


Convert TS to double precision ones complement angles TS^, TSy, 
and TSg. Matrix elements formed starting at address given 
by the contents of X2. 


%2o 

— 

COS 

TS cos 

tJ 

TS, 







%2;L 

= 

sin 

TS^ sin 

TS 

y 

COS 

TS 

X 

COS 

TS 

y 

sin 

TS 

z 

%22 

= 

cos 

TS^ sin 

-A. 

TS + 

y 

sin 

TSx 

cos 

TS 

y 

sin 

TS, 



sin 

TS, 








%2^ 

= 

cos 

TS cos 

TS, 







%25 

= 

- sin TS cos TS„ 

X z 







%26 

= 

- sin TS cos TS 

y z 







®X2y 


sin 

TS cos 

X 

TSy 1 

cos 

TSx 

sin 


sin 

TS 

z 

%28 

= 

cos 

TS cos 

X 

TSy - 

sin 

TS 

X 

sin 

TS^ 

sin 

TS 

z 


Return 


DELCOMP 

Entered with angle TS . Matrix elements stored starting at DEL. 
All matrix clement have magnitudes limited <1. 

TSj^ = 1 - cos TS (magnitude limited ^2) 

DELq = COF^^ TS^ + cos TS 

DEL^ = COFy.^ TS^ + cos TS 


DELg = 

= COF^' 

2 

^ TS^ 

+ ( 

30S 

TS 



DEL^ = 

= COF 

X 

COF 

y 

TS^ 


COF^ 

sin 

TS 

DEL^ - 

= COF^ 

COF 

y 

TS^ 

- 

COF^ 

sin 

TS 

DEL2 " 

^COF^ 

COF^ 

TS^ 

+ 

COF^ 

sin 

TS 

DEL^ = 

= COF^ 

COF^ 

TS^ 

- 

COF 

y 

sin 

TS 

DEI+^ = 

= COF 

y 

COF^ 

1 — 1 

CO 

+ 

COF^ 

sin 

TS 

DEL^ = 

= COFy 

COF^ 

TS^ 

- 

COF^ 

sin 

TS 


Return 
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MXM3 


TS^ = 

fxil (%2q ’ 


TS2= 1 

[l^Xll ^ 

%2^ - 

TS, = 

!?Xl] ^%22 ’ 

%25 ^ 


"iSix 

TS2X 


II 

TS, 

ly 

^^2y 


Return 





E- 


'X2/ 


E 


'X2n 


E 


X2c 


DCMTOCDU 


3 


Entered with matrix starting address in XI. Cf . "CDUTODCM" 

for matrix elements. 

TS^ = sin-1 

TS = cos TSg, with magnitude limited <1 

TSy = sin-1 (_ E^^^ /TS) 

If Eyt <0: 

XIq 

TSy = i sgn TSy - TSy 
= sin-1 (_ E^^^ /TS) 

If Exi^<0: 

TS^ = i sgn TS^ - TS. 


(the 5 corresponds to 180°) 


X 


TS = (TS , TS , TS ) (double precision, BO revolutions) 
Return 


LOCSKIRT (Tag also "WCALC") 


TS = K 


arateT- 


"RATEINDX 
Perform "DELCOMP" 

BRATE = [qUADROtI (K 


arate. 


RATEINDX 


OOP) 
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= K ^ AM / K 
tm angtm 

If bit 4(GYC61FLG) of FLAGWRDO = 1: 
Proceed to "RCYCLR 6 I" 


("KALCMAN3" entered from 
"STKTEST") 


BIASTEMP = . BRATE 

~ biasc - 

Set bit 2(CALCMAN2) of FLAGWRD2 = 1 
Proceed to "NEWANGL" 


(means start of KALCMANU 
steering generation) 


NOGO 

Inhibit interrupts 
Perform "STOPRATE" 

If bit 2(R67FLAG) of FLAGWRD8 = 0: 

Call "ENDMANU" in 0.02 second 
End of job 

Call "R 67 " in 1 second 

Set restart group 1 to phase 11 (l.ll, causing "PIKUP20" to be 
established vdth priority 10^ if a restart) 

End of job 

NEWDELHI (Established by "UPDTCALL") 

If bit 2(R67FLAG) of FLAGWRD8 = 1: 

If bit 5(TRACKFLG) of FIAGWRDl - 0: 

Proceed to "FIXDB" 

If HOLDFLAG ^0: 

Inhibit interrupts 
CDUXD = GDU 


Proceed to "NOGO" 


Proceed to "NEWANGL" 
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NEWANGL 


(Entered from "LOCSKIRT", "NEWDELHI", and "R67RSTRT") 


XI = "MIS" 

X2 = "DEL" 
Perform "MXM3" 

[’misJ= [t^ 

XI = "MIS" 


Perform "DCMTOCDU" 

NCDU = TS, converted to twos complement single precision, B-1 rev. 
If bit 2(CALCMAN2) of FLAGWRD2 = 1: 

Set bit 2(CALCMAN2) of FLAGWRD2 = 0 (Tag here "MANUSTAT") 
If bit 2(R67FLAG) of FUGWRD8 = 1: 


28 

T, = (2 - l) centi-seconds 

tm 

If bit 2(R67FLAG) of FLAGWRD8 = 0: 


(37777g 37777g) 


(Note that this done for R67 also, 
regardless of the R67-specified rate) 


^tm ^tm + ^now " centi-seconds 
Inhibit interrupts (Tag here "TMDON") 

HOLDFUG = -1 
If RATEINDX > 6 : 

Set bit 15 of RCSFLAGS = 1 (means high rate) 

WBODY = mTE 

BIAS = BIASTEIff (least significant half only) 

NEXTIME = TIMEl + 100, modulo 2 ^ cs 

DELCDU = QUADROT^ (NCDU - BCDU) (ones complement difference formed) 


sp 


CDUXD = BCDU (most significant half of CDUXD loaded; least 
significant half left alone) 

BCDU = NCDU 


Release interrupts 

TS = T, - T 

tm now 
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If TS > 0: 


Call "UPDTCALL" in (NEXTIME - TIMEl) centi-seconls fif 
difference is negative, I 6384 is added, i.e, 2^^) 

NEXTIME = NEXTIME + 100, modulo 2^^ cs 

End of job 

TS = TS + 101, limited 1 centi-second and ^ 100 centi-seconds 
Call "MANUSTOP" in TS centi-seconds 
End of job 
UPDTCALL 

If bit 2(R67FLAG) of FLAGWRD8 = 1: 

If R 6 ICNTR = 0: 

Establish "R 67 RSTRT" (priority 26 g) 

End of task 
R 6 ICNTR = R 6 ICNTR - 1 
Establish "NEWDELHI" (priority 26^) 

End of task 
MANUSTOP 

DELCDUY = 0 
DELCDUZ = 0 
WBODY^ = 0 
WBODY^ = 0 
BIAS^ = 0 
BIASp = 0 
CDUYD = THETAD 

y 

CDUZD = THETAD 

z 

CDUXD = THETAD 

X 

Perfom "STOPRATE" 

Proceed to "ENDMANU" 


(least significant 
half of 

CDUXD left alone) 


n 
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ENDMAMU 


Establish "ENDMANUV" (priority I 4 .) 

8 

End of task 
STOPRATE 

DELCDUX = 0 
WBODYq = 0 
BIASq = 0 

Set bit 15 of RCSFLAGS = 0 (means no longer have high rate) 

DELCDUY = 0 

DELCDUZ = 0 

WBODY^ = 0 

WBODY 2 = 0 

BIAS^ = 0 

BIAS^ = 0 

Return 

FIXDB 

Inhibit interrupts 

If bit 12(MAXDBFLG) of FLAGWRD9 = 1: 

Perform "SETMAXDB" 

If bit 12(MAXDBFLG) of FLAGWRD9 = 0: 

Perform "SETMINDB" 

Set bit 2(R67FIAG) of FLAGWRD8 = 0 
Release interrupts 

Set restart group 1 to phase 11 (l.ll, causing "PIKUP20" to be 
established with priority lOg if a restart) 

Inhibit interrupts 

Perform "STOPRATE" 

End of job (where interrupts released) 
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R 61 CSM 


(Entered from "PIKUP20", "R52H", and "R66CSM") 


GENRET = Retiirn address 
If R61CNTR > 0: 

R61CNTR = R61CNTR - 1, limited > +0 
Proceed to address specified by GENRET 
If R61CNTR < 0: 

Proceed to address specified by GENRET 

Inhibit interrupts 

ADB = K . ,, 
mindb 

TS = |DBPTCj (absolute value converts input of e.g. 350° to'^0°) 

If TS i 0: 

ADB = TS 

Release interrupts 
Perform "CRS61.1" 

Set bit 15(V5aNl8FL) of FLAGWRD3 = 0 
If TS = 0: (no R60 performance) 

R61CNTR = 3 

Proceed to address specified by GENRET 
Set bit 6(3 AXISFIjG) of FLAGVJRD5 = 0 (Tag here "R 61 C 1 ") 

If bit 8(AZIMFLAG) of FLGWRDll = 1: 

Set bit 6(3 AXISFIjG) of FLAGWRD5 = 1 
R 61 CNTR = -1 

Set bit 12(PDSPFIAG) of FLAGWRD4 = 1 
Perform "R60CSM" 

Set bit 12(PDSPFLAG) of FLAGWRD4 = 0 
TS - 0 

Perform "PRIODSP" (clears DSKY of V06N18 if in Minkey mode) 
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Set restart group 1 to phase 11 (l.ll, causing "PIKUP20" to be 
established -with priority lOg if a restart) 

R61CNTR = 0 

Proceed to address specified by GENRET 
CRS61.1 (Entered only from "R61CSM") 

Q611 = Return address 
R63TIME = T 

now 

Perform "R63" (enter here from "RCYCLR61" to refine maneuver by R60) 

Set bit 9(RANGFLAG) of FIGWRDIO = 0 (note R22 could interrupt here, bit O) 

If (R63TIME - K ) <0: (R63TIME has LOS value; constant 

328nm 327.6? nmi) 

Set bit 9(RANGFLAG) of FKt'WRDIO = 1 (Note could be improper if 

, refined maneuver not require 

If MODRBG ^ 27: R60) 

Set bit 3 (Uplink Activity) of channel 11 = 0 

If HOLDFLAG > 0: (includes e.g. in Free or SCS control) 

Set bit 4(CYC6lFLG) of FLAGWRDO = 0 

TS = 0 

Proceed to address specified by Q6II 
If bit 8(AZIMFLAG) of FLGWRDll = 1: 

TS = CDU - THETAD (ones complement difference formed) 

If any(trs.| (i = x,y,z) 

Proceed to "STKTEST" 

If bit S(AZIMFLAG) of FLGWRDll = 0: 

CDUSPOT = (THETADXy, THETADX^, THETADX^) (Tag here "NOAZFLGl") 

TS = SCAXIS 
Perform "TRG-^s-NBSM" 

If (TS • POINT VSM) - K <0: (N.ote this is check using 

DAP deadband center, not the 
Proceed to "STKTEST" present attitude) 
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(If bit 8 (AZIMFLAG) of FLGWRDll = O): 


’’Sl = '^deltyme * ™™TVSM) 

“(iTSil -\axrata>>/°^ 

TS, = K unitTS, 

—1 maxrate “1 

DTHETASM = K TS^ 

— rad to rev —1 

TS = channel 31 (Tag here "AUTOCK") 

If bits 14-13 of C31FLWRD ^ OO 2 : 

TS = C 3 IFLWRD 

If bits I 5 -I 3 (G&N Autopilot Control complement. Free Mode complement, 
and Hold Mode complement) of TS ^ Automatic) 

Set bit 4(CYC6lFIG) of FLAGWRDO = 0 

TS = 0 

Proceed to address specified by Q 6 II 
If bit 14(STIKFLAG) of FLAGWRDl = 1 : 

Set bit 4(CYC6lFLG) of FIAGWRDO = 0 
TS = 0 

Proceed to address specified by Q 6 II 
If bit 9(UTFLAG) of FLAGWRD 8 = 1 : (Tag here "STEP 3 CK") 


(Tag here "DAPCK") 


If R 63 TIME = 0 ; 
TS^ = 0 


(set 0 in "R 63 " confutations, i.e. "UTAREAl", 
for body code 

(14D) ® 


TS = 0 (MPAC) 

Proceed to "■CRS61.2A" 

TS = DGDII - SAVRVRT, (Tag here "CRS61.2"; DCDU has LM velocity) 


TS, = K , 
“1 rvcsds 


(- unitTS SAVEPOS) 


(B 6 ) 


TS^ = [rEFSMMAtJ ( |ts)/R 63 TIME) TS^ (in 20D; R 63 TIME has |L0S) value) 
If bit 8 (AZIMFLAG) of FLGWRDll =0: 


TSg = TS^ + DTHETASM 


(BO) 
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DTHETASM = TS^ 

- tnth -2 

Perform "CDUTRIG" 

Perform "SMCDURES" 

TS^ = DCDU, rescaled to B-1 revolutions (in 14D) 

Perform "CDUTRIG" 

TS = TS^ 

Perform "^:-SMNB^«-" 

TS = j^DYTCTI^ TS (B-3 rev/deci-second, in MPAC) 

Proceed to "CRS61.2A" 

CRS61.2A 

Inhibit interrupts 

If bit 8(AZIMFLAG) of FIGWRDll = 1: 

TS 3 = TS^ + K^^200 (THETAD - THETADX) (ones comp, difference 

formed) 

CDUXD = THETADX 
-sp 

WBODY = TS (from MPAC) 

DELCDU = TS^ (from I 4 D) 

HOLDFLAG = -1 

Release interrupts 

Set bit 4(CYC6lFlJG) of FLAGWRDO = 0 

TS = 0 

Proceed to address specified by Q 6 II 
STKTEST (Entered from "CRS 6 I.I" if R 60 maneuver appropriate) 

TS = bit 4(CYC6lFLG) of FLAGWRDO 
Complement bit 4(CYC6lFLG) of FLAGWRDO 
If TS = 0: 

Proceed to "KALCMAN3" (exits to "RCYCLR 6 I" since CYC 6 IFLG set, 

using check in "LOCSKIRT") 
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If bit 15(V5CN18FL) of FIAGWRD3 = 1: 

TS = 1 

Proceed to address specified by Q6ll 
Set bit 3 (Uplink Activity) of channel 11 = 1 
Set bit 4(CYC61 FIjG) of FLAGWRDO = 0 
TS = 0 

Proceed to address specified by Q6ll 

RCYCLR61 (Entered from "LOCSKIRT" if CYCblFLG set) 

R63TIME = T + . + T, 

now 20p48sec tm 

Proceed to third line of "CRS61.1" 

R63 (Entered from "CRSbl.l" and "V89RECL") 

Q6111 = Return address 

Tdeci = R63TIME 

Perform "CSMCONIC" 

SAVEPOS = R . . 

— -att 


SAVEVEL = V . , 

~ “att 

POINT VSM = (SAVEVEL SAVEPOS) 

If bit 9(UTFLAG) of FLAGWRD8 = 1: 

Proceed to "UTAREAl" 

Tdeci = R63TIME 
Perform "LEMCONIC" 

(here is LM velocity) 

- SAVEPOS 
SAVEPOS = unitTS 

R 63 TIME=|ts( (here is LOS magnitude) 
TS = SAVEPOS 
Proceed to "R 63 COMI" 


(B36, for use in "UTOPT45") 


= ^tt 
= ^tt 


(B7 m/cs) 


(B29 meters) 
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R63COM1 


If bit 8 (AZIMFUG) of FLGWRDll = 1 : 

Proceed to "UTOPT45" (P 20 option 4/5, 3 -axis solution) 

POINT VSM = [rEFSMA^ TS 

SCAXIS = (cos UTYAW cos UTPIT,sin UTYAW cos UTPIT, - sin UTPIT) 
Perform "VECPOINT" 

THETAD = TS 

Proceed to address specified by Q 6 III 

yTAREAl (Entered from "R 63 " if UTFLAG set, i.e. option I /5 of P20) 

TS = R 63 TIME 
Perform "LSPOS" 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1: 

TS 2 = -unit(TS + SAVEPOS) (in 8 D, earth vector) 

SCAXIS = - unitSAVEPOS (moon vector) 

TS^^ = unit(TS^ - TS) (in 2D, sun vector) 

If bit 12(CM00 NFIjG) of FLAGWRD 8 = 0: 

SCAXIS = unit(TS - SAVEPOS) (moon vector) 

TSg = -unitSAVEPOS (in 8 D, earth vector) 

TS^ = unitTS^ (in 2 D, sun vector) 

VELdC = SAVEVEL + (TS^ * ^^clipol^ "SAVESTAR") 

DCDU = 0 (velocity cell) 

R 63 TIME = (sAVEPOSj (B29 meters) 

SAVEPOS = - unitSAVEPOS 
If UTSTARNO = + 0: 

SAVEVEL = 0 

R 63 TIME = 0 (zero value used in "CRS 6 I.I" to bypass LOS rate) 
TS = unit ^ unit(K^^^^^^ PLANVCUT) + VELdC ^ 

Proceed to "R 63 COMI" 
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If (UTSTARNO - 46g) 0: (catalog star) 

SAYEm = 0 
R 63 TIME = 0 
TS = 6 UTSTARNO 


TS = unit(K 


■cat, 


+ 


TS 


Proceed to "R 63 COMI' 


VELdC) 


If UTSTARNO = 46g: (sun) 

TS = unit(TS^ + VELdC ) 
Proceed to "R 63 COMI" 

If UTSTARNO = 47^: (earth) 

TS = unit(TS 2 + VELdC) 
Proceed to "R 63 COMI" 


If UTSTARNO 50g: (moon) 

TS = unit(SCAXIS + VELdC) 


Proceed to "R 63 COMI" 


UT0PT46 

UTSB = TS 

UTSBP = (cos UTYAW 
UTSAP = unit (UTSBP unitY) 

POINTVSM = unit (UTSB POINT VSM) 
UTSA = POINTVSM cos AZIMANGL + 
UTUYP = unit (UTSAP UTSBP) 

UTUZP = UTSAP * UTUYP 
UTUY = unit (UTSA UTSB) 

UTUZ = UTSA UTUY 


sin UTYAW cos UTPIT, - sin UTPIT) 

(Note this same as unit of 

(sin P, 0, cos Y cos P) , so error 
if P = 0 and Y = 90°) 

(POINTVSM has v r from "R 63 ") 
unit (UTSB POINTVSM) sin AZIMANGL 
(cf. STV' in "AXISGEN") 

(cf. STW' in "AXISGEN") 

(cf. STV in "AXISGEN") 

(cf. STW in "AXISGEN") 


(Entered from "R 63 COMI" if AZIMFLAG =1, i.e. option 4/5 of P20) 
(line-of-sight information) 
cos UTPIT, 
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UTX = UTSAP UTSA + UTUYP UTUY + UTUZP UTUZ 

- X - X - X - 

UTY = UTSAP UTSA + UTUYP UTUY + UTUZP UTUZ 

y - y - y “ 

UTZ = unit (UTSAP UTSA + UTUYP UTUY + UTUZP UTUZ) 

— z ~ z ~ z ~ 

UTY = unitUTY 
UTX = unitUTX 

UTAMG = unit (UTX REFSMMAT^) (cf. TS in "CALCGA") 

COSTH = UTAMG • UTZ 
SINTH = UTAMG • UTY 
Perform "ARCTRIG" 

UTOGA = THETA 

COSTH = (UTAMG * UTX) • REFSMMAT^ 

SINTH = REFSMMAT^ * UTX 
Perform "ARCTRIG" 

UTMGA = THETA 

If I THETA I - 0: 

Perform "ALARM" (pattern 401^) 

COSTH = REFSMMAT^ * UTAMC (Tag here "UTCGAl") 

SINTH = REFSMMATq * UTAIG 
Perform "ARCTRIG" 

UTIGA = THETA 

THETAD = (UTOGA, UTIGA, UTMIA), converted to twos con^^lement B-1 rev, sp. 
Proceed to address specified by Q 6 III 

CALLR6X (Entered from "PIKUP20" if UTFLAG =1, i.e. options 1, 2, 5 of P20) 

Set bit 14(R21MARK) of FLAGWRD2 = 0 

If OPTNTYPE = 0: (original option selection 1 or 5 ) 

Proceed to "R66CSM" 

TS = R 67 TIME - with sign agreement forced (Tag "TyFE2", option 2) 
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If TSgp]> 0: (TS B28 cs, so this means I 63.84 sec or more) 

Delay 163.83 seconds (by putting job to sleep via "DELAYJOB") 
Proceed to 4th line of "CALLR6X" 

If TS 4 0: 

TS = 1 

Call "R 67 " in TS centi-seconds 
End of job 

R66CSM (Entered from "CALLRbX") 

If bit 5(TRACKFLG) of FLAGWRDl = 0: 

Proceed to "FIXDB" 


Perform "R 6 ICSM" 

Delay 0.5 second (by putting job to sleep via "DELAYJOB") 
Proceed to "R66CSM" 

R^ (Called by "CALLR6X" and "NOGO") 

Establish "R 67 START" (priority 26g) 

Set bit 2(R67FUG) of FLAGWRD8 = 1 
End of task 


R67START 

If bit 14(STIKFLAG) of FLAGWRDl = 1: (note that HOLDFLAG not 

checked on startup, nor DAP 
Inhibit interrupts auto/hold mode) 

CDUXD = CDU 

Proceed to "NOGO" 

BCDU = CDU 

COF = (cos UTYAW cos UTPIT, sin UTYAW cos UTPIT, - sin UTPIT) 


Inhibit interrupts 


ADB = K 


mindb 
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TS =|dbptc| 

If TS i 0: 

ADB = TS 

Release interrupts 

TS = K. , RATEPTC 
tufits 

Perform "DELCOMP" 

BRATE = |QUADROtJ RATEPTC COF 

BIASTEMP = 0 

Set restart group 1 to phase 13 (1.13, causing "R67RSTRT" to be 
established vd.th priority lOg if a restart) 

Proceed to "R67RSTRT" 

R67RSTRT (Also entered from "UPDTCALL" establishing) 

If bit 5(TRACKFLC) of FLAGWRDl = 0: 

Proceed to "FIXDB" 

R61CNTR = 2048 (used in "UPDTCALL" to cause "R 67 RSTRT" to be 

established when = O) 

Change priority of present job to 26 g 
X2 = "MIS" 

TS = BCDU 

Set bit 2(R67FLAG) of FLAGWRD 8 = 1 
Perform "CDUTODCM" 

Set bit 2(CALCMAN2) of FLAGWRD2 = 1 

Proceed to "NEWANGL" (Note that HOLDFLAG, even if enter 

"R67RSTRT" due to "UPDTCALL", not checked 
STIKFLAG, though not HOLDFLAG, checked 
at start of "R 67 START", where DAP mode 
check missing) 
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Quantities in Computations 

See also list of major variables and list of routines 


ADB: See Digital Autopilot Interface Routines. 

AM: Magnitude of required maneuver angle, scale factor BO, units revolutions. 
The cos“^ routine gives an answer in the range 0° - 180°. 

AZIMANGL: See Orbital and Rendezvous Navigation. In docvimentation is "OMICRON" 

BCDU: Set of three single precision cells, scale factor B-1, units 

revolutions, used to contain the previously desired values of the 
CDU angles. 

BIAS (components BIASq, BIAS^, BIAS 2) : See Digital Autopilot RCS Routines. 

BIASTEMP: Temporary storage for the values of BIAS to be loaded into those 
cells in "NEWANGL", scale factor BI3, units revolutions. Since only 
the least significant parts of BIASTEJff are used, this gives a loading 
for BIAS with the B-1 scaling required. 

BRATE: Vector giving maneuver rates about the x, y, and z axes, scale 
factor B-3, units re volutions/de ci-second (i.e. revolutions per 
0.1 second). Could also be considered scaled BO in "units" of 
450°/second. The "axes" are "control" ones (see |quADR0'^). 

C3IFLWRD: See Digital Autopilot RCS Routines. 

CAM: Cosine of AM, scale factor Bl. 

CDUSPOT: See Coordinate Transformations. 

CDUXD (components CDUXD, CDUYD, CDUZD): Values of desired CDU angles, 
scale factor B-1, units revolutions, used in RCS DAP if HOLDFLAG 
negative. See Digital Autopilot RCS Routines. 

COF: Unit vector, scale factor Bl, giving the "eigenvector of rotation 
when rotating SCAXIS to the desired position." It is computed in 
"VECPOINT" as the cross-product of the desired (POINTVSM) orientation 
in navigation base (i..e. spacecraft) coordinates and the SCAXIS 
complement, and is recomputed in "KALCMAN3". 

COFSKEW: Vector, scale factor B2, in direction of COF (before maneuver 

magnitude checks, and equal to 2 sin AM times maneuver vector). Its 

unit (giving a scaling of Bl) is employed if AM is between K . 

j -xr imria. 

and K 

maxa 

COSTH: See Coordinate Transformations. 

DBPTC: See Orbital and Rendezvous Navigation. 
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DCDU: See Coordinate Transformations. In addition to being an output of 
"SMCDURES", also used in "R 63 " to contain LM velocity vector, scale 
factor B7, units meters/centi-second (this special meeting indicated 
by comment as necessary) . 

; Matrix computed in "DELCOMP", whose elements have scale factor BO. 

The matrix is a transformation representing the effect of a rotation 
about the input vector COF by the angle TS (i.e. the matrix taking a 
vector in initial navigation base/spacecraft coordinates to the same 
vector in final navigation base coordinates) . 

DELCDU (DELCDUX, DELCDUY, DELCDUZ): Desired CDU change each 0.1 second, 
scale factor B-1, units revolutions (or revolutions/deci-second) . 

DTHETASM: See Coordinate Transformations. Used in earlier part of 

"CRS 6 I.I" to contain a limited correction factor to null pointing 
error, scale factor BO, units revolutions/second. 

GENRET: Single precision cell used to contain return address from "R 6 ICSM" . 

HOLDFLAG: See Digital Autopilot Interface Routines. 

Kid2oo- Constant, program notation "1/200", scale factor BO, single precision 
Value is O.OO 5 , corresponding to (I/ 2 OO), niilling error in 20 seconds. 

See Inflight Alignment. 

K-in Constant, program notation "I/SQRT 3 ", scale factor BO, value 

iijsqruj 0.57735021. Value corresponds to l//T . 

K20 ,gsec‘ Constant, program notation "20.A8SEC", scale factor B28, units 
^ _pSenti-‘seconds . Value is 1 x 2“^' , corresponding to 20. 4^ x 100 
X 2 , where first term is value in seconds, second converts to 

centi-seconds, and third is scale factor. 

K„2gnm' Constant, program notation "328NM", scale factor B29, units meters. 

Value is 606844 (as stored), corresponding approximately to 

327.67 X 1852 X , where first term is value in nautical miles 
(77777g for VHF 15-bit input, whose least increment is 0.01 nmi), 
second converts from nautical miles to meters, and third is scale 
factor. Note check based on conic estimate of on-board vectors, however 

^anetm" Constant, program notation "ANGLTIME", scale factor BI 9 , used to 
° rescale time from seconds to centi-seconds. Octal value is 
00003 Q OJ+OOOq, corresponding to 100 x 2“^^. 

Karate ' four constants, program notation "ARATE", defined only 

I for 1=0, 2, 4i 6. They give the allowable maneuver rates, 
scale factor B-4, units revolutions/second. Values are 0.0022222222, 

0 . OO 88888889 , 0.0222222222, and 0.0888888889: these correspond to 
rates of 0.05, 0.2, 0.5, and 2.0 degrees/second. 
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K, . : Constant, program notation "BIASCALE", scale factor Bl6, value 

0.0002543132. Value corresponds to (1/O.6) x 10 x , where 
first term is reciprocal of "slope of decision line" (boundary of 
dead zone of plot of rate error vs. angle error has slope of 0.6°/ 
second/®), second converts BRATE from deci-seconds to seconds, 
and third is scale factor. 

—cat' Inflight Alignment. 

^costen' ’^°’^stant, program notation "COSTEN", scale factor B2. Used 

double precision but stored single precision with nominal value of 
0.98481 X 2“^, where first tern is cos 10° and second is scale 
factor. Double precision octal is 07702- 00034-, corresponding 

to about 0.984864 X 2“2. « « 


^deereelO' » program notation "DEGREEIO", scale factor B-1, units 

® revolutions. Used double precision but stored single precision 

with nominal value of 0.05556, corresponding to 10°. Double precision 
octal is 016 l6g 37651^, corresponding to about 10.008°. 

^deltyme' program notation "DELTYME", scale factor B-2. Used 

double precision but stored single precision with nominal value 
of 0.05 X 2^, where first term is desired nulling rate (i.e. zero 
error in 20 seconds, as for and second is scale factor. 

Double precision octal is 063I5g Ol6l6g, corresponding to about O.O5OOO4 


K , , . : Constant, program notation "DPIMIN". scale factor B28, units 
^ centi-seconds . Value is 6OOOO x 2“^°, corresponding to 60 seconds 
or one minute. 

^clipol' Inflight Alignment. 

Kmaxa' Constant, program notation "MAKANG", scale factor BO, imits 

revolutions. Used double precision but stored single precision 
with nominal value of 0.472222, corresponding to 170°. The octal 
is 17071g 00004g, giving about the same result. 

Kmaxrate' > program notation "MAXRATE", scale factor BO, \anits of 

radians/second. Value is 0. 00174 j corresponding approximately to 
0.09969 X Tr/l80, where first term is value in degrees/second and 
second converts to radians . 


Constant, program notation "MINANG", scale factor BO, units revolutions. 
Used double precision but stored single precision with nominal value 
of 0.00069375, corresponding to 0.25°. Octal value is 00013g 17071g, 
corresponding to about 0.252°. 


K 


mindb ' 


See Digital Autopilot Interface Routines. 
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K . : Constant, program notation "DFB-14", scale factor B2, value 

ininmag 2 - 14 ^ corresponding to a true value of 2“^^. Since is used vrLth 
unit vectors after forming cross product, corresponds to an angle 
between the vectors of about 0.244 mr. Equivalent function performed 
elsewhere in program without explicit use of constant. 


Kpi6^: See Coordinate Transformations. 


K Constant, program notation "POINTS", scale factor B-3, value 
^ 0.8. Value corresponds to 0.1 x 2^, to convert between imits of 

revolutions/second scaled BO and revolutions/deci-second scaled 
B-3 (equivalent to multiplication by 360°/ (45° x 10)). 


^radtorev" > program notation "RADTOREV", scale factor BO, 

0 . 15915494 , to convert between radians and revolutions, 
corresponds to (I/ 2 T). 


value 

Value 


Krvcsds' ^^o’^stant, program notation "RVCS/RDS", scale factor B4, value 
15.915494 X 2 ~^, used to convert velocity from meters/centi- 
second to meters/second and angles from radians to revolutions. 
Value corresponds to 100 x (l/27r) x 2“4^ where first term is time 
conversion, second converts radians, and third is scale factor. 


^singitn* Constant, program notation "SINGIMLC", scale factor Bl, value 
0 . 4285836003 . True value is 0.8571672006, corresponding to 
sin 59° (approximately: the "2" should be "3" in the true value). 

^sinvecl- Constant, program notation "SINVECl", scale factor Bl, value 
0 . 3796356537 . True value is 0.7592713074, corresponding to 
sin 49 . 4 °* Program comments indicate this angle is used as a check 
that "are pointing the thrust axis". 

^sinvec2‘ Constant, program notation "SINVEC2", scale factor Bl, value 

0 . 24621178 . True value is 0.49242356, corresponding to sin 29.5°. 
Program comments indicate this angle is used as a check that "are 
pointing the AOT" (LM hardware), or otherwise "must be pointing 
the transponder or some vector in the Y or Z plane." 

^tnth' Constant, program notation "TENTH", scale factor B-3, value 

0.1 X 2-^, corresponding to a true value of 0.1 (to convert angle 

increments from revolutions/second to revolutions/deci-second). 

Ktufits* Constant, program notation "TUFITS", scale factor B-2, value 0.4. 

^ ^ ^ Value corresponds to 0.1 x 2^, where first term converts the normal 
XX.XXX°/sec scaling of RATEPTC to X.XXXX°/sec and second is scale factor. 


^ecangl* Constant, program notation "VECANGl", scale factor BO, units 
revolutions. Value is O.I 388888889 , corresponding to 50°. 

K 2 * Constant, program notation "VECANG2", scale factor BO, units 

^ revolutions. Value is 0.09722222222, corresponding to 35 °. 
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[^MBDYTCTI^: Matrix of constants, elements vd.th scale factor Bl. True 
values are: 


1.0 0 0 

0 0.99200495 -0.12619897 

0 0.12619897 0.99200495, 

Values are the same as those used in conjunction vfith j^UADRO'!^ . 

|[MF;n : Matrix with elements having scale factor B2, "relating final 
spacecraft axes to initial spacecraft axes." 

^FISYI^ : Matrix with elements having scale factor B2, "the symmetric 
part of (MF^ ", computed if AM exceeds K^gxa' 

: Matrix with elements having scale factor Bl, "a direction cosine 
matrix relating the final spacecraft orientation to stable member 
axes." If A is a vector in spacecraft coordinates, then the same 
vector in stable member axes (B) is given by B = ^IF^ A. 

: Matrix with elements having scale factor Bl, "a direction 
cosine matrix relating the initial spacecraft orientation to stable 
member axes." 

NCDU: Value of next-desired CDU angles, single precision, scale factor 
B-1, units revolutions. 

NEXTIME: Single precision value of time, scale factor BI4, units 

centi-seconds, when "NEWDELHI" is to be entered next. Used to 
compensate for delays in perfonning "NEWDELHI" due to jobs of 
higher priority. 

OPTIND: See Optics Computations. 

OPTNTYPE: See Orbital and Rendezvous Navigation. 

PLANVCUT: See Orbital and Rendezvous Navigation. 

POINTVSM: Unit vector, scale factor Bl, giving the direction in which 

SCAXIS is to be pointed. The components of this vector should be in 
stable member coordinates. Also used in R63 computations for 
utility storage purposes. 

Q6II: Single precision cell used to contain return address from "CRS6I.I". 

Q6III: Single precision cell used to contain return address from "R63". 
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Matrix of constants, 


elements vd.th scale factor BO. 


Values 


0.1 

0 

0 


0 

0.09920 

0.01262 


0 

- 0.01262 

0.09920 


Matrix serves to convert time units from rates/second to rates/deci- 
second (a factor of O.l), and also "accounts for the roll displace- 
ment of the reaction jets with respect to navigation base coordinates" 
by rotating about X by -7.25°. Sin 7.25° = 0.1262 and cos 7.25° = 
0 . 9920 . QUADROTq used to convert from rev/sec to rev/deci-sec. 


R 6 ICNTR: See Orbital and Rendezvous Navigation. Also used in option 2 of P20 
to control period of entrance to "R 67 RSTRT" (about once every 34 
minutes) from "UPDTCALL" to restore . 

R 63 TIME: Value of time for which R 63 computations are carried out, scale 
factor B2S, units centi-seconds. After being used for that purpose, 
loaded in R 63 confutations with magnitude of the line-of-sight vector, 
scale factor B29, imits meters. Set zero if option I /5 of P20 with 
star code ^45g (i.e. not sun, earth, or moon)> otherwise has GSM vector. 

R 67 TIME: See Orbital and Rendezvous Navigation. 


RATEINDX: See Digital Autopilot Interface Routines. 

RATEPTC: Single precision cell, scale factor B-2, units revolutions, loaded 
by R1 of N 79 (for option 2 of P20). Since the desired display scale 
is X.XXXX°/sec but the noun processing routine considers the input 
to be XX.XXX°, another factor of 0.1 is acconf lished by K, . . Due 
to the noun routine, the maximum value cannot exceed about o^9§99°/sec . 

RCSFLAGS: See Digital Autopilot Interface Routines. 

SAVEPOS: Cells used in "R 63 " initially to contain GSM position vector, scale 
factor B29, units meters. For P20 options 0/4 subsequently loaded with 
the unit line-of-sight vector, scale factor Bl, between the vehicles; 
for options I /5 loaded with the negative unit vector. 

SAVEVEL: Cells used in "R 63 " initially to contain GSM velocity vector, scale 
factor B7, units meters/centi-second. Zeroed for options I /5 of P20 if 
star code ^45g. 

SCAXIS; Unit vector, scale factor Bl, giving the "axis to be pointed" 
along the direction indicated by ' 'POINT VSMv SCAXIS components 
should be in spacecraft (i.e. navigation base) coordinates. Also 
used in R 63 computations for utility storage purposes. 

SINTH: See Coordinate Transformations. 
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T, : Time required to perform maneuver of magnitiide AM (computed in 

"LOCSKIRT"), scale factor B28, units centi-seconds . Subsequently 
changed to be the value of the computer clock when the maneuver should 
be completed (as part of initial-cycle computations). Set to +MAX 
to disable the exit if doing option 2 of P20. 

TBASEl: Cell used for address storage purposes in "CHKLINUS" to permit 

restoration of program display after a restart (by "RELINUS"). Cell 
normally used to contain the waitlist restart infomiation (see 
3420.5-27), and is single precision. 

TEMFR6O: Single precision cell used to contain return address from "R6OCSM" . 

THETADX: See Digital Autopilot RCS Routines. 

[tMFX] : Transpose of matrix , scale factor B2. 

[tMI^ : Transpose of matrix jfflsj, scale factor Bl. 

UTAlyD: Unit vector, scale factor Bl, used in the dedicated "CALCGA" routine 
included in "UTOPT45". Stored in push-down list location 6D. 

UTIGA, UTMIA, UTOGA: Values of inner, middle, and outer gimbal angles, scale 
factor BO, loaded from THETA (see Coordinate Transformations), units 
revolutions. Stored in 26D, 28D, and 24D respectively. 

UTPIT: See Orbital and Rendezvous Navigation. Sometimes called "gamma". 

UTSA: Information on desired orientation (based on AZIMANGL) about the LOS 
(UTSB) vector, scale factor Bl, computed in "UTOPT45"* Stored in 
18D, with UTUX also used in program as notation. 

UTSAP: Information on "primed coordinate system" orientation of UTSA, scale 
factor Bl, computed in "UTOPT45". Stored in OD, with UTUXP also used 
in program as notation. 

UTSB: Information on desired pointing (LOS) vector, scale factor Bl, loaded 
in "UTOPT45". Stored in 24D. 

UTSBP: Infomiation on "primed coordinate system" orientation of UTSB (i.e. 

spacecraft axis to be pointed in LOS direction), scale factor Bl, loaded 
in "UTOPT45". Stored in 6D. 

UTSTARNO: See Orbital and Rendezvous Navigation. 

UTUY, UTUYP, UTUZ, UTUZP: Vectors, scale factor Bl, used in "UTOPT45" 
computations within the dedicated "AXISGEN" routine. 

UTX, UTY, UTZ: Output of the dedicated "AXISGEN" routine in "UTOPT45", 
formed before "exit" as unit vectors, scale factor Bl, for use in 
the dedicated "CALCGA" routine. 
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UTYAW: See Orbital and Rendezvous Navigation. Sometimes called "rho" 
VELdC: See Inflight Alignment. 

WBODY (components WBODY^, WBODY, , WBODYp): See Digital Autopilot RCS 
Routines. u ± .i 
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Boost Computations 


Pll 


(Entered from "CHKCOMED" after liftoff deduced) 


Set T . = T and T = 0 
evt now now 


T = T + T 
eph eph evt 

Inhibit interrupts 


(with special provisions for 

restarts) 

(special restart provisions) 


Perform "PREREADl" 

Release interrupts 

Call "ATERTASK" in 0.5 second 
TS = 11 and perform "NEWMODEK" 

Set bit 12(N0D0P01) of FLAGWRDl = 1 

DNLSTCOD = 3 

Perform "CLEANDSP" (gets rid of backup liftoff, V75) 

ERCOMP = ERCOMP + THETAN 

TS = T ^ 
evt 

Perform "EARTHR-^'"" (starting at second line) 

(OGC, IGC, MIC) = CDU, rescaled to scale factor BO revolutions, 

double precision 


RTX2 = 0 
ALT = C 


(means earth) 


pgncsat 
LONG = C 


pdong 


LAT = C , , 
atd 

Set bit 13(ERADC0MP) of FLAGWRDl = 0 (means pad radius altitude 

base; bit 12(LUNLATL0) of 

® FLAGWRD3 apparently presumed 

zero from "SLAPl") 

Perform "LALOTORV" 

R ^ = ALPHAV 
-nl - 


BOOS-1 


TS2 = 0 (time argument) 

TS = 1 (GAMRP value, scaled Bl) 

Perform "LALOTORV" (starting at 5th line) 

Z = - unitALPHAV 
— r — 

nil ^merthrt ^^1 ^unitw^ 

% = * Svmitw^ 

TS2 = unit(TS^ * Z^) (- south) 

^ = unlt( TS^ sin LAUNCHAZ + TS2 cos LAUNCHAZ) 

Y = - unit(X * Z ) 

“T ~r “T? 


[REFSMMAtl = 


X 

—r 


Z 

-r 


(cells also used for temporary storage 
during computation) 


SATRLRT sgn (4 - LAUNCHAZ + C 

^ azmth^ 


SATRLRT 

Set bit 13(REFSMFLG) of FLAGWRD3 = 1 


AVBGEXIT = "VHHDOT" 


IdPIPADT = K_ 

2secp 

TS = 200 - TIMEl, limited ^ 1 
Call "READACCS" in TS centi-seconds 

Proceed to "NORMLIZE" 


(i.e. 2 seconds after liftoff 
deduced) 


VHHDOT 

VMGI = ) V ( 

HDOT = unitR • V 

TS = K ^ 
rpad 

If bit 2(AM00NFIG) of FLAGWRDO = 1: (apparently presumed 0 from 

, "SLAPl" ) 

TS = jRLSj , rescaled to scale factor B29 

ALTI = jR) - TS 
TS = 0662 

vn 

Proceed to "RBGODSP" 
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ATERTASK 


Called by "Pll" 0.5 second after liftoff deduced, or if 

restart (group 4.5l) 

Establish "ATERJOB" (priority Olg) 

Set bit 3 of RCSFLAGS = 1 
Perform "NEEDIER" 

SATSW = 1 
End of task 

ATERJOB (Job has low priority, hence interrupted for others) 

If bits 15-14(DAPBIT1, DAPBIT2) of FLAGWRD6 ^ 00^: 

End of job (restart group 4-51 remains set, however) 

If bit 10 (CMC Control of Saturn complement) of channel 30 = 0: 

If SATSW 0: 

Proceed to "ATRESET" (control just given) 

If bit 10 (CMC Control of Saturn complement) of channel 30 = 1: 

If SATSW ^ 0: 

Proceed to "ATRESET" (control just removed) 

TS^ = TIMEl - (tag here "ATTDISP") 

If TS^ 0, proceed to "NOPOLYM" 

If TSt +C-, >0: (C,. negative number) 

1 polystop polystop 

Proceed to "NOPOLYM" 

If T >. 163 . S4 seconds: (i.e. TIME2 > 0) 

now ^ 

Proceed to "NOPOLYM" 

I = C +1 

ponirni ^ 

POLYANS = 51 C . (TSt )^ 

i=o pyc,i V 

NMPH = POLYANS, rescaled to scale factor BO 

ANGROLL = SATRLRT TS^ - i + LAUNCHAZ - C , , 

1 azmth 

If (ANGROLL SATRLRT+1 )> 0: (only most significant half 

of product checked) 

ANGROLL = 0 (rollout completed) 

= ■unit(sin NMPH, 0, -cos NMPH) 
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= unit(- sin ANGROLL cos NMPH, - cos ANGROLL, - sin ANGROLL 

sin NMPH) 

= unit(- cos ANGROLL cos NMPH, sin ANGROLL, - cos ANGROLL 

sin NMPH) 


Perform "CALCGTA" 
Proceed to "NOPOLYM" 


NOPOLYM 

Perform "CDUTRIG" 

= (IGC, MGC, OGC), converted to single precision twos comp.,B-l rev. 
TS 2 = CDUSPOT, converted to single precision twos comp., B-1 rev. 

TS = TS^ - TS ^2 (ones comp, difference formed) (y,z,x for 0,1,2) 

AKq = ^ '^^0 SINCDUZ) 

AKi = TSq COSCDUX COSCDUZ + TS^ SINCDUX 
AK^ = - TSq SINCDUX COSCDUZ + TS^ COSCDUX 

If SATSW > 0: (no takeover in effect) 


Perform "NEEDIER" 


Delay 0.25 seconds (by putting job to sleep via "DELAYJOB") 

Proceed to "ATERJOB" (program comments indicate loop rate of 

about 0.56 second) 

If SATSW = 0: (first takeover cycle) 


BIASAK = - AK 

SATSW = -1 
AK = BIASAK + AK 


AK = C ^ , AK 

“ satscale — 

Perform "NEEDIER" 


(tag here "STEERSAT") 


Delay 0.25 seconds (by putting job to sleep via "DELAYJOB") 
Proceed to "ATERJOB" 
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ATRESET 


Entered from "ATERJOB" for a change in bit 10 of channel 30 


Set bit 3 of RCSFLAGS = 1 (causes "NEEDLER" re-initialization) 

Perform "NEEDLER" 

Delay 0.06 seconds (by putting job to sleep via "DELAYJOB") 

TS = SATSW 

If TS > 0: (control just given) 

Set bit 9(SAB Takeover Enable) of channel 12 = 1 

SATSW = 0 (first takeover cycle, causing BIASAK loading) 

If TS ^ 0: (control just removed) 

SATSW = 1 

Set bit 9(S4B Takeover Enable) of channel 12 = 0 
Perform "NEEDLER" 

Delay 0.25 seconds (by putting job to sleep via "DELAYJOB") 

Proceed to "ATERJOB" 

SATSTKON Entered from "STABLISH" 

T5L0C = "REDOSAT" 

Set TIME5 to cause program interrupt #2 in 0.01 seconds 
Set bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 = 11^ 

Perform "ZEROJET" 

Proceed to "PINBRNCH" 

REDOSAT 

Set bit 3 of RCSFLAGS = 1 
Perform "NEEDLER" 

Set bit 9 (SAB Takeover Enable) of channel 12 = 1 (Reset e.g. by 

"STABLISH" ) 

T5L0C = "SATSTICK" 

Set TIME5 to cause program interrupt #2 in 0.10 seconds 
Resume 
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SATSTICK 


T5L0C = "SATSTICK" 

Set TIME5 to cause program interrupt #2 in 0.10 seconds 
TS = bits 6-1 of (- channel 31) 

Perform "STICKCHK" 

^0 = ^satrt 

^1 == °satrt 

1 satrtpj^jjp^ 

^2 = ^satrt 

satrtYMANNDX 

Perform "NEEDIER" 


Resume 

P15J0B 

TS = 0633 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 


TLITMP = T. +K,,.,, 
ig tlidt 

P 4 OTMP = (T. - T ) (done in interpretive language, thus maximizing 

Ig no-w entering "T 6 SET") 

Call "T 6 SET" in P 4 OTMP centi-seconds (via "LONGCALL" double -precis ion 

waitlist time entrance) 


T. = TLITMP 
ig 

TS = 0614 

vn 

Proceed to "VNFLASH":' (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 


VMAGI 



Set bit ll(TIMRFLAG) of FLAGWRD? = 1 


VGTLI = VCdO - VMAGI 


AVEGEXIT == "SIVBCOMP" 
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NVWORDl = 0695 

•^vn 

Call "CLOKTASK" in 0.01 seconds 
End of job 

T6SET 


,p -P 

evt now 

Call "T6RESET" in 10 seconds 

Set bit 13 (S4B Injection Sequence start) of channel 12 = 1 
Set bit 3 (Uplink activity) of channel 11 = 1 
End of task 
T6RESET 

Set bit 13(S4B Injection Sequence Start) of channel 12 = 0 
Set bit 3 (Uplink activity) of channel 11 = 0 


AVEGDT = K 


lOOsec 


Establish "P4OS/SV" 


(priority 12g) 


End of task 


"togo ^tensec^ 


SIVBCOMP 
If (T 

Set bit ll(STEERSW) of FIAGWRD2 

VMAGI = |V| 

HOOT = unitR • V 

TS = K , 
rpad 

If bit 2(AM00NFLG) of FLAGWRDO = 1: 

TS = |rLS| , rescaled to scale factor B29 
ALTI = |r) - TS 
VGTLI = VCdO - MAGI 
If bit ll(STEERSW) of FLAGWRD2 = 0: 

VPAST = MAGI 
Proceed to "SERVXTl" 


(T = T - T. ; T. 
togo now ig^ ig 

T not updated by P15 

until STEERSW = l) 
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If (VMAGI - VPAST) <0: 

VPAST = VMAGI 
Proceed to "SERVXTI" 

TS = VGTLI / (VMAGI - VPAST) 

If overflow has occurred since ''SIVBCOMP" entered: (e.g 

VPAST = VMAGI 
Proceed to "SERVXTI" 

'^^1 "" ^200bl9 “ “^dtl 

T^g = + TS^ (predicted cutoff time) 

>/ 0 ^ 

VPAST = VMAGI 
Proceed to "SERVXTI" 

Inhibit interrupts (Tag here "KILLSIVB" ) 

(TS, AVBGDT+l) = (T^^ - T^^^) > with sign agreement forced 

If AVEGDT+1,< 0: 

AVEGDT+1 = 1 

Call "SIVBOFF" in AVEGDT+1 centi-seconds 
Set bit ll(STEERSW) of FLAGWRD2 = 0 
Proceed to "SERVEXIT" 

SIVBOFF 

Set bit 14(S4B Cutoff) of channel 12 = 1 

T ^ = T 
evt now 

Delay 2.5 seconds 

NVWORDl = +0 

Set bit ll(TIMRFLAG) of FLAGWRD? = 0 
Establish "POSTTLI" (priority 12g) 

End of task 


jTS(^2^) 


o 
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POSTTLI 


TS = 1695^ 

Proceed to "WFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


Proceed to "GOTOPOOH" 
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Quantities in Computations 

See also list of major variables and list of routines 


IdPIPADT: See IMJ Computations. 

AK (AKq, AK^, ■^2^* Digital Autopilot Interface Routines. 

ALPHAV: See Coordinate Transformations. 

ALT: See Cooi^iinate Transformations. 

ALTI: Value of vehicle altitude above (or RIS magnitude if state 

vector has lunar origin), scale factor B29, units meters. It is 
displasred in R3 of N 62 . 

ANGROLL: Value of roll angle remaining to be perfomed, scale factor BO, 
lanits revolutions. 


AVEGDT: See Burn Control. Also used to retain the required delay before 

cutoff (in least significant half, BI 4 centi-seconds) for use in restart 
protection computations. 

AVEGEKIT: See General Program Control. 


BIASAK:Value of the complement of AK, same scaling, saved on the pass 
through "ATERJOB" following the one which senses a logic 0 to 1 
transition (binary 1 to O) of bit 10 of channel 30. It effectively 
permits the errors to be "nulled" at this point, and is applied until 
Saturn control is removed. If get a restart, or if switch subsequently 
set to CMC position, a new set of BIASAK values is determined. 


atd 


See Prelaunch Alignment. 


C 


azmth’ 


See Prelaunch Alignment. 


^dtf‘ precision erasable memory constant, program notation "DTP", 

scale factor BI 4 , units centi-seconds, subtracted from the "raw" 
time-to-go in order to account for thrust decay effects in "SIVBCOMP". 


C , : Erasable memory constant, program notation "PADLONG", scale factor 

D ® BO, units revolutions, giving longitude of pad. 


C Erasable memory constant, program notation "PGNCSALT", scale 

pgncs factor B29, units meters, giving "altitude of IMLJ" (measured from 
see Coordinate Transformations). The magnitude of the initial- 


erad' 

condition position vector is the sum of K , and C 

erad pgncsat 

C : Single precision erasable memory constant, program notation 

POlystopiipoLYSTOP", scale factor BI 4 , units centi-seconds, giving minus 

(time from liftoff minus C + +) when performance of pitch polynomial 

should be stopped. The pi ten polynomial will be halted, regardless of 
the nmbers in the erasable memory constants, when time from liftoff 
reaches I 63.84 seconds. 
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C num' precision erasable memory constant, program notation 

"POLYNUM", scale factor BI 4 , giving "polynomial degree -1" of 

the polynomial used to compute POLYANS. Erasable memory cell 

allocation is such.that C should not exceed 5 (giving a final 

term of C /TS,^). 
pyc,6 1 

C . (i = 0 - C + 1 ): Erasable memory coefficients used to 

O ^ X UUIiUIIl 

compute POLYANS, with highest order coefficient stored in("POLYLOC" 
+3), next highest in ("POLYLOC" + 1 ), etc. Scale factor of C 
is B5 revolutions; scale factor of C ^is B-9 revolutioni^^'^ 
centi-second; scale factor of.ith is ^^‘^^’^(5 - 14 i), with \anits 
of revolutions/(centi-second)^. For C = 5 , the first term, 

Cpyc,0, “ ("POLYNUM" +l) . 

C tart’ precision erasable memory constant, program notation 

^ "RPSTART", scale factor BI 4 , units centi-seconds, giving the 

time (from CMC-deduced liftoff) when the evaluation of the roll 
and pitch computations should be started for generation of 
attitude error displays (as opposed to driving the displays from 
the difference between sampled attitude and present attitude). 

^satrt ® “ 3 ): Set of single precision erasable memory constants, 

i program notation (i = O) "SATRATE", scale factor B12, units output 
pulses. Cells used in "SATSTICK" to specify the nimiber of piilses 
generated by "NEEDIER" routine for deflections of the RHC in roll, 
pitch, and yaw (a positive input via AK gives a negative output). 

Values for i = 0 and i = 3 shoiild be zero; for i = 1, the value for 
a positive maneuver is supplied; and for i = 2, the value for a 
negative maneuver is supplied . A saturated error counter would be 
produced for a setting of 384 x 4 = 1536 (the factor of 4 is due to the 
value of ill "NEEDLES") least increments. 

*^satscale’ precision erasable memory constant, program notation 

"SATSCALE" , scale factor B 2 , used as the gain on the AK outputs 
for SatTirn steering based on polynomial output. A value of 1.00 for 
the constant would cause a saturated error counter for 67 ^° of roll 
error and 16.875° of pitch/yaw error (the saturated error counter 
corresponds to 384 pulses). The "1.00" value is effectively the one 
employed to drive the needles if no Saturn steering is done. For 
RHC control, is used to specify the output information. 


^unitw’ General Program Control. 
CDUSPOT: See Coordinate Transformations. 


COSCDUX , COSCDUY , COSCDUZ: See Cooixlinate Transformations. 


DNLSTCOD: See Telemetiy. 

ERCOIff: See Prelaunch Alignment. 

HDOT: Value of altitude rate for 
units meters/centi-second. 


display purposes, scale factor B7, 
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IGC: See Coordinate Transformations. Used to retain sampled value of 

CDU near deduced liftoff for attitude error display diiring the 

fir^t C . , centi-seconds after liftoff deduced, 

rps ufiir* u 

K : Constant, program notation "lOOSEC", scale factor B28, units 

lOOsec centi-seconds. Value is 10000 x , correspording to 100 
seconds. 

^onnhiQ' '^o'^stant, program notation "200Btl9", scale factor B19, units 
^ ^ of (centi-seconds/computing interval). Value is 200 x 2 ~^'^ , 

corresponding to the two-second computing interval. 

K„ : See IMU Computations. 

K. : Constant, program notation "4SEC" , scale factor B28, units 

centi-seconds. Value is 400 x 2“^“, corresponding to 4 seconds. 

K +V, +" Constant, program notation "-ERTHRAT", scale factor B-18, units 
merthrt r-adians/centi-second. Value is -?. 29211513 8E-7 x 2l®, corres- 
ponding to an earth rotation period of about 86164 .O 99 seconds. The 
octal value gives a decimal equivalent of about -7 .2921150717E-7. 

K , : See Burn Control . 
rpad 

K, : Constant, program notation "TENSEC", scale factor B28, units 

ensec ggnti-seconds . Value is 1000 x 2~^°, corresponding to 10 seconds. 

: Constant, program notation "TLIDT", scale factor B28, units 
^centi-seconds. Value is 57760 x 2“^°, corresponding to 577.60 
seconds (or 9 minutes 37*60 seconds). 

LAT, LONG: See Coordinate Transformations. 

LAUNCHAZ: See Prelaunch Aligrmient. 

MGC: See Coordinate Transformations. Used to retain sampled value of 

CDU near liftoff (see IGC). 
z 

NMPH: Value of nominal pitch history, scale factor BO, units revolutions, 
obtained from POLYANS. 

NVWORDl; See Burn Control. 

OGC: See Coordinate Transformations. Used to retain sampled value of 
CDU^ near liftoff (see IGC). 

P 4 OTMP: Required time delay until when "T 6 SET" is to be performed, scale 
factor B28, units centi-seconds. 

PMANNDX: See Digital Autopilot Interface Routines. 

POLYANS: Output of polynomial used for determination of nominal pitch 
history, scale factor B5, iinits revolutions. 

R^^: See General Program Control. 

RCSFLAGS: See Digital Autopilot Interface Routines. 


BOOS-12 


Rev. 0 


RLS: See Coordinate Transformations. 

RMANNDX: See Digital Autopilot Interface Routines. 

RTX2: See Orbital Integration. 

SATRLRT: Quantity used to specify nominal Saturn roll rate, scale factor 
BO, \mits revolutions/centi-second. It is set as part of the 
prelaunch erasable load, and subsequently has sign changed in 
the latter part of "Pll" depending on the deduced polarity of the 
required Saturn roll. rate should not exceed about 2.2 

degrees/second (i.e. 2~^ rev/centi-second), or malfunction of 
the check in "ATERJOB" for zeroing of ANGROLL could result. If 
it does not, check there will set ANGROLL to 0 when the value 
reaches about (0.05/n) degrees beyond the nominal roll amount, 
where "n" is the Saturn roll rate in degree s/second. 

SATSW: Single precision cell, scale factor BI4, used to control the logic 
associated with automatic steering of Saturn (based on polynomial 
outputs). An initial condition of +1 is set in "ATERTASK" (entered 
also if a restart), meaning display only. A value of +0 is 'set in 
"ATRESET" just after control takeover (i.e. present value of SATSW = 1 
and of channel 30 bit 10 = O). In "NOPOLYM", the value of 0 causes 
BIASAK to be initialized, and the value of SATSW set to -1 (indicating 
a subsequent pass through Saturn automatic steering) . When the value 
of channel 30 bit 10 is sensed as 1 (a logic 0, meaning no control), 
and SATSW is ^ 0, then "ATRESET" entered again, this time causing 
a reset of SATSW to +1, the configuration for attitude error display only. 

SINCDUX, SINCDUY, SINCDUZ: See Coordinate Transformations. 


T ,• Triple precision value of ephemeris time, program notation "TEPHEM", 
scale factor B42, units centi-seconds . Cell must be initialized as 
part of pre launch erasable memory load to the elapsed time between 
ephemeris origin and the pre-launch origin setting for the computer 
clock. When liftoff is deduced, T . is added to T , . T , is 
changed by V70. ®P^ 


T, : See Burn Control, 
togo 

T5LOC: See Digital Autopilot Interface Routines. 

THETAN: See Prelaunch Alignment. 

TIME5: See Digital Autopilot Interface Routines. 

TLITMP: Value of input T. (N33) plus K , used to write over T. with 

ignition time (since°the input is or une Injection Sequence sifrt time). 
Scale factor is B28, units centi-seconds. 

V^^: See General Program Control. 
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V See Orbital Integration. 


VCdO: Value of desired cutoff velocity, scale factor B7, units meters/ 
centi-second, displayed in R1 of NI4. Program notation "VC/O". 

VGTLI: Required velocity to be gained for TLI burn, scale factor By, units 
meters/centi-second . It is displayed in R2 of N95, and occupies the 
same cells as (for telemetry purposes). 

z 

VMAGI: Value of magnitude of vehicle inertial velocity, scale factor By, 

units meters/centi-second. It is displayed by several nouns, and also 
has program notation "VNOW" . For telemetry purposes, it occupies the 
same cells as 

VPAST: Value of previous VMAGI, scale factor By, units meters/centi-second, 
loaded in "SIVBCOMP" and used in the denominator of the time-to-go 
computation. 

Xj,: Unit vector, scale factor Bl, forming first row of (feFSMMA'^ 

computed after liftoff deduced, and defined as "horizontal vector 
at launch azimuth" . 

Y^: Unit vector, scale factor Bl, forming second row of TrEFSMMA'3 and 
formed as Xr-* 

IMANNDX: See Digital Autopilot Interface Routines. 

Z^: Unit^vector, scale factor Bl, forming third row of fffiFSMMAl] , and 
defined as "local vertical". 
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Bum Control 




) 


P30 


Set bit 7(UPDATFLG) of FLAGWRDl = 1 
Set bit 5(TRACKFIG) of FLAGWRDl = 1 


TS = 0633 


vn 


(See page 13 at front 
of document for verbal 
description of parts 
of this program) 


Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS = 0681 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

Set bit 8(XDELVFLG) of FLAGWRD2 = 1 

Set bit 7(UPDATFLG) of FLAGWRDl = 0 

T = T 
decl ig 

Perform "CSMPREC" 


RTX2 — X2 (0 for earth, 2 for moon) 

V = V 
■^ig -att 

R, . = R , , 

-tig -att 

R i o — R J.X 
— act3 —att 

UNRM = unit(R .0 * V, . ) 

- '-act3 -tig^ 

TS^ = - UNM 

TS„ = - unitR , „ 

-3 -act3 

= TS^ * UNRM 


DELVSIN = DELVLVC 


TS^ 


TS^ 


[TS^j 


RTXl = XI 


(DELVLVC notation also "DELVSLV") 
(set to -2 for earth, -10 for moon) 


O 
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vGDisp = |delvsin| 

X2 = RTX2 (0 for earth, 2 for moon) 

WEC = + DELVSIN), shifted left X2 places (B? earth, B5 moon) 

RVEC = R. • , shifted left X 2 places (B29 earth, B27 moon) 

~tig 

XI = RTXl 

TS - K , 
rpad 

If XI ^ -2: 


(i.e. not earth) 


TS = |rls) 

XXXALT = TS 
Perform "APSIDES" 

HPER = (TS - XXXALT), shifted right RTX2 places (B29), limited ^ K 

HAPO = (TS - XXXALT), shifted right RTX2 places (B29) , limited 

TS = 0642 (Tag here "PARAM 30 ") 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 


If bit 13(REFSMFLG) of FLAGWRD3 = 1 : 
TS = DELVSIN 
Perform "GET+MIA" 

If bit 13(REFSMFLG) of FLAGWRD3 = 0: 


pM}A = - K 
^ marsdp 

Set bit ll(TIMRFLAG) of FLAGWRD? = 1 
NVWORDl = +0 

Call "CLOKTASK" in 0.01 seconds 
TS = 1645 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 

Set bit ll(TIMRFLAG) of FLAGWRD? = 0 

Proceed to "GOTOPOOH" 
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P31 




) 


Set bit 5(LMACTFIG) of FLAGWRD2 = 0 
ECSTEER = ^ 

Set bits 7(UPDATFIG) and 5(TRACKFLG) of FLAGWRDl = 1 
Set bit l(PCFLAG) of FLGWRDIO = 0 

Set bit 6(CSISFLAG) of FIGWRDll = 0 (tag here "P3IALMRT") 

CENTANG = (tag here "INPUTDSP") 

ELEV = , (constant is 208.3°) 

208deglo 

If bit 6(CSISFLAG) of FIGWRDll = 0: (as it will) 

NNl = 1 


TS = 0611 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS = 


0655 


vn 


Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS = 0637 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


If bit 12(CM00NFLG) of FLAGWRD8 = 1: 
XI = -10 (indicates moon) 


(if zero, XI not initialized, 
so garbled results for earth-orbit) 


^^2b6 \utab_^^ l^ectcml l^ectcml ^ '^(^ectcmj 
^^1 ^mutab^_^^ ^^2pisc ^ ^ earth, B2 moon) 


(B-22 earth, 
B-20 moon; 
value of l/a) 


T. = T . 
ig csi 


2 TS^ / TS 


O 
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TS = 0633 

vn 

Proceed to "WFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 

XI = -2 (settings for 

X2 = 0 earth) 

If bit 12(CM00NFIJG) of FIAGWRD8 = 1: 

XI = -10 (settings for 

X2 = 2 moon) 

RTXl = XI 


RTSRldMU = K ^ ^ 
mutab 


4-Xl 


TS = (subscript = 0 for earth, 8 for moon) 

—2— XI 

If bit 12(CM00NF]JG) of FLAGWRD8 = 1: 

Shift TS right 6 places 
RTMU = TS (scale factor B36) 

RTX2 = X2 

Set bit 6(FINALFLG) of FLAGWRD2 = 0 

If bit l(PCFIAG) of FLGWRDIO = 1: (should be O) 

Proceed to "P36A" 

Perform "VNI645" 

Proceed to "P3IRECYC" 

P31RECYC 

Set bit 7(HAFLAG) of FKjWRDII = 1 (bit only reset by "P32/P72C") 

TS = T . 
csi 

Proceed to second line of "P32/P72B" (returns to "P3IRT" due to HAFLAG, 

unless get alarm) 
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P3IRT 




DELVLVC = 0 

DELVLVC = K__, , (DIFFALT + a ,,,) 
X 25thous hamdelh^ 

Perform "N9O/N8I" (page BURN-23) 

Perform "VNI645" 


Proceed to "P3IRECYC" 

P32 

Set bit 5(UV[ACTFLG) of FIAGWRD2 = 0 
ECSTEER = 

lb2 

Proceed to second line of "P72" 

P72 

Set bit 5(LMACTFLG) of FLAGWRD2 = 1 

Set bits 7(UPDATFLG) and 5(TRACKFIG) of FLAGWRDl = 1 (tag here "P32/P72A") 
Set bit l(PCFLAG) of FIGWRDIO = 0 

If bit 7(HAFLAG) of FIGWRDll = 1; (i.e. P3I alarm return) 

Proceed to 5th line of "P31" (note HAFLAG remains set, locking 

out P32/P72). 

CENTANG = (tag here "INPUTDSP") 

ELEV = (constant is 208.3°) 

208deglo 

If bit 6(CSISFLAG) of FLGWRDll = 0: (as it will, see "P82") 

NNl = 1 
TS = 0611 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

TS = 0655 

vn 

Proceed to "VNFLASH": (if tenninate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS = 0637 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise , proceed to previous line 
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Set bit 6(CSISFLAG) of FLGWRDll = 0 

T. = T . 
ig csi 

XI = -2 (settings for 

X2 = 0 earth) 

If bit 12(CM00NFIG) of FLAGWRD8 = 1: 


XI = -10 
X2 = 2 
RTXl = XI 
RTSRldMJ = K 


(settings for 
moon) 


mutab 


4-Xl 


TS = K 


"mutab 


•2-Xl 


(subscript = 0 for earth, 8 for moon) 


If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Shift TS right 6 places 
RTMJ = TS (scale factor B36) 

RTX2 = X2 

Set bit 6(FINALFIG) of FLAGWRD2 = 0 
If bit I(PCFIAG) of FLGWRDIO = 1: (should be O) 

Proceed to "P36A" 


Perform "VNI645" 

Proceed to "P32/P72B" 

P32/P72B 

TS - T, 
ig 

Perform "ADVANCE" (page BURN-13 ) (Tag "P3IENT", from "P3]JiECYC" ) 

Perform "INTSTALL" 

Set bit 4(C0NICINT) of FLAGWRD3 = 0 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 (superseding previous line) 
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T = T 
decl tpi 

Set bit 12(M00NFLAG) of FIAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

Set bit 12(M00NFIAG) of FIAGWRDO = 0 

T = T 
et csi 

RCV = Rpasgi> shifted left X2 places (B29 earth, B27 moon) 

VCV = ^paaal* left X2 places (B7 earth, B5 moon) 

Perform "INTEGRVS" 

R o “ R a.i 
-^ass3 “att 

^ass3 ^tt 

Proceed to "CSl/A" (returns to "P32/P72C" for non-error exit) 

P32/P72C 

If bit 7(HAFLAG) of FLGWRDll = 1: (e.g. "P32/P72B" entered from 

"P3IRECYC") 

Set bit 7(HAFLAG) of FIGWRDll = 0 
Proceed to "P31RT" 

T2T0T3 = TS + (TS left vd.th time from end of "CIRCL") 

If bit 6(FINALFIG) of FIAGWRD2 = 0: 

Set bit 7(UPDATFLG) of FIAGWRDl = 1 

TS = T1T0T2 

T1T0T2 = TS 

TS = T1T0T2 - . 

oOmin 

If TS^ 0, proceed to 2nd previous line (load T1T0T2 with TS) 

TS = T2T0T3 
T2T0T3 = TS 
TS = T2T0T3 - 

If TS 0, proceed to 2nd previous line (load T2T0T3 with TS) 
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If bit 7(AUT0SEQ) of FLGWRDIO = 0: 


TS = 0675 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS2 = - UPl 
TS_ = -unitR 

-3 - 


TS^ = TS^ * UPl 


DELVLVC = 



(tag here "PASS75") 


DELVEETl 


(YCSM, YDOTC, YDOTL) = - (AUTOY, CMYDOT, IMYDOT) 


DELVLVC = CMYDOT 
7 

If bit l(PCFLAG) of FLGWRDIO = 1: (should be O) 

If IdelvlvCj^I - 0’ 

DELVLVC = 0 


TS = 0690 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


) 


TS = O6SI 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


(Matrix recomputed for restart reasons, 
but elements should have same values) 


-actl ^ct2 
TS^ = - UPl 

TSo = -tinitR , , 
-3 -actl 


(to allow use of common subroutine) 


(cell has here) 


DELVSIN = DELVLVC 


TS^ 

TS^ 

l'^% 
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TS^ = TS^ UPl 


DELVOV = 



DELVEET2 


If bit 7(AUT0SEQ) of FlfiWRDlO = 0: 


TS = 0682 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


T = T 
tpiO tpi 

DELVEETl = DELVSIN (same cell) 


Perform "VN1645" 


Proceed to "P32/P72B" 


P33 

Set bit 5(lMACTFIjG) of FLAGWRD2 = 0 


ECSTEER = „ 

lb2 

Proceed to second line of '-^73" 


P73 


Set bit 5(IMCTFLG) of FIAGWRD2 = 1 

Set bits 7(UPDATFLG) and 5(TRACKFLG) of FLAGWRDl = 1 

Set bit l(PCFLAG) of FIGWRDIO = 0 

TS = 0613 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

T = T 
tpi tpiO 

T = T 
ig cdh 
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XI = -2 (settings for 

X2 = 0 earth) 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1 ; 
XI = -10 (settings for 


X2 = 2 

RTXl = XI 

RTSRldMJ = K ^ ^ 
mutab 


4-Xl 


moon) 


TS = (subscript = 0 for earth, 8 for moon) 

—2— XI 

If bit 12(CM00 NFIjG) of FIAGWRD 8 = 1 : 

Shift TS right 6 places 
RTMU = TS (scale factor B36) 

RTX 2 = X 2 

Set bit 6 (FINALFLG) of FLAGWRD2 = 0 

If bit l(PCFLAG) of FLGWRDIO = 1 : (should be O) 


Proceed to "P 36 A" 


Perform "VN1645" 

Proceed to "P33/P73B" 

TS = T. 

ig 

Perform "ADVANCE" (page BURN-I 3 ) 

Perform "CDHMVR" 

DELVEETl = DELVEET2 (allows use of a P32/P72 subroutine later) 

Perform "INTSTALL" 

Set bit 4(C0NICINT) of FIAGWRD 3 = 0 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 (superseding previous line) 

T = T 
decl tpi 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
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o 


X2 = RTX2 

If bit 12(CMD0 NFLCt) of FIAGWRD8 = 0: 

Set bit 12(M00NFLAG) of FIAGWRDO = 0 

T - T 

et cdh 

RCV = shifted left X2 places (B29 earth, B27 moon) 

VCV = shifted left X2 places (B? earth, B5 moon) 

Perform "INTBGRVS" 

R 4.0 “ ^ 4.x 

^ct3 -att 

^ct3 ^tt 

Perform "INTSTALL" 

Set bit 4(C0NICINT) of FLAGWRD3 = 0 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 (superseding previous line) 

T = T 
decl tpi 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
X2 = RTX2 

If bit 12(CM00NFIG) of FIAGWRD8 = 0: 

Set bit 12(MD0NFLAG) of FLAGWRDO = 0 

T = T 
et cdh 

RCV = Spass2^ shifted left X2 places (B29 earth, B27 moon) 

VCV = Ypggg2’ shifted left X2 places (B7 earth, B5 moon) 

Perform "INTEGRVS" 

R o = R XX 
“pass3 ~att 

V = V 
~pass3 “^tt 

Set bit 14(ITSWITCH) of FLAGWRD7 = 1 
NOMTPI = 0 
Perform "S33/34»l" 
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If TS ^ 0; (non-zero for error return from "S33/34.1") 

Perform "ALAEM" (pattern 06llg) 

TS = 0509 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

othervdse, proceed to second line of "P73" 

NOMTPI = 0 

If bit 6(FINALFLG) of FLAGWRD2 = 0: (tag here is "P33/P73C") 

Set bit 7(UPDATFLG) of FLAGWRDl = 1 


T,_ . = NOMTPI + T,. . 
tpi tpi 

TS = T^ . - T ,, 
tpi cdh 

TS = TS - . 

oOmin 

If TS ^ 0, proceed to previous line 
T1T0T2 = TS + K 


60min 
~ '*'tpi ” "^tpiO 

If TS ^ 0, proceed to previous line 
T2T0T3 = (TS + sgn (T^^. - 

If bit 7(AUT0SEQ) of FLGWRDIO = 0: 


(note that if negative, no modulo 
action occurs) 


TS = 0675 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS^ = - UPl 

TSo = -unitR 
~3 - 


(tag here "SKIP75") 


TS^ = TS^ * UPl 


DELVLVC = 


TS^ 

TSj 

U%J 


DELVEETl 


(DELVEETI has DEL VEET 2 from start of 
"P33/P73B") 


) 
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(YCSM, YDOTC, YDOTL) = - (AUTOY, CMYDOT, LMYDOT) 



O 


DELVLVC = CMYDOT 

y 

If bit I(PCFLAG) of FIGWRDIO = 1: (should be 0 ) 

If IdELVLVC I - K, < 0: 

' y‘ IdlOfps 

DELVLVC = 0 


TS = 0690 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se , proceed to previous line 


TS = 0681 

vn 


Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervdLse, proceed to previous line 


DELVSIN = DELVLVC 



(Matrix recomputed for restart reasons, 
but elements should have same values)^ 


DELVEETl = DELVSIN (same cell) 

Perform "VNI645" 

Proceed to "P33/P73B" 

ADVANCE Entered from "HARTBURN", "P 32 /P 72 B", and "P 33 /P 73 B" 

'^decl required time before enter) 

Perform "PRECSET" (vjhich loads UPl) 

Set bit 8(XDELVFLG) of FLAGWRD2 = 1 

V ^ = V 
■^ass2 -^ass3 

— passl — pass3 

R „ o = R o 
“pass2 -^ass3 

-passl -pass3 

R. . == R , _ 

—tig — act3 

Sact2 “ I StigI ( hig - <hig ■ “‘'I) “fl) 

^ctl ^ct2 
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^ig ^ct3 


\ot2 = |\ig| C ^ig - 




UPl) UPl j 


V = V 
— actl “act2 

Return 


P24 


Set bit 5 (IMCTFIjG) of FIAGWRD2 = 0 
ECSTEER = 

Proceed to second line of "P74" 


P74 


Set bit 5(4MACTFLG) of FIAGWRD2 = 1 

Set bits 7(UPDATFLG) and 5(TRACKFIG) of FIAGWRDl 
Set bit l(PCFLAG) of FLGWRDIO = 0 

Set bit 3(TPIMNFLG) of FLGWRDIO = 0 
CENTANG = K. 

ELEV = 0 


= 1 


13Weg 


NNl = 0 


TS = 0637 


vn 


Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS = 0655 


vn 


Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

Set bit 7(HAVEELEV) of FLAGWRD2 = 0 


T. = T^ . 

ig tpi 
If ELEV ^ 0: 

Set bit 7(HAVEELEV) of FLAGWRD2 = 1 


) 
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XI = -2 


(settings for 
earth) 


X2 = 0 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 


XI = -10 (settings for 


X2 = 2 

RTXl = XI 

RTSRldMJ = K ^ , 
mutab 


4-Xl 


moon) 


TS = K , , (K , , for earth, K , , for moon) 

mutab_ 2 _jj-^ mutabQ mutabg 

If bit 12(CM00NFIG) of FIAGWRD8 = 1: 


Shift TS right 6 places 
RTMU = TS (scale factor B 36 ) 

RTX2 = X2 

Set bit 6 (FINALFIjG) of FIAGWRD2 = 0 

If bit l(PCFIAG) of FLGWRDIO = 1 : (should be O) 

Proceed to "P 36 A" 

Perform "W1645" 

Proceed to "P 34 /P 74 C" 

P34/P74C 

Set bit 14(ITSWITCH) of FLAGWRD7 = 1 (means iterate "S 33 / 34 .I" below) 

If bit 7(HAVEELEV) of FLAGWRD2 = 0: 

Set bit 14(ITSWITCH) of FLAGWRD7 = 0 
NOMTPI = 0 

Tdeci ~ '^tpi NOMTPI (tag here "INTLOOP", enter here from below) 

Perform "PRECSET" 

Perform "S33/34.1" 
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If TS ^ 0: (non-zero for error return from "S33/34*!") 

Perform "ALARM" (pattern 06llg) 

TS - 0509 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

othervd.se, proceed to 2nd previous line 
(regenerate alarm again) 

Proceed to second line of "P74" 

If bit 14(ITSWITCH) of FLAGWRD? = 1: (tag here "SWCHCLR") 

Set bit 14 (ITSWITCH) of FLAGWRD? = 0 

Proceed to 5th line of "P34/P74C" loading) 

If bit 7(HAVEELEV) of FLAGWRD2 = 1: 

TS = 0637 ^ (tag here "P34/P74D") 

Proceed to "WFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 

If bit 6(FINALFLG) of FLAGWRD2 = 1: 

If bit 7(AUT0SBQ) of FLGWRDIO = 1: 

Set bit 7(HAVEELEV) of FLAGWRD2 = 0 

ELEV = 0 


T. = T,. . 
ig tpi 

Proceed to "P34/P74C" 

If bit 7(HAVEELEV) of FLAGWRD2 = 0: 

TS = 0655 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se , proceed to previous line 

XI = RTXl (Tag here "P34/74E") 

X2 = RTX2 (as "least significant half" of XI and RTXl) 

CSTH = cos CENTANG 


SNTH = sin CENTANG 
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) 



RVEC = Rpasg 3 > shifted left X2 places (B29 earth, B27 moon) 

WEC = shifted left X 2 places (B? earth, B5 moon) 

Set bit 9(RVSW) of FLAGWRD7 - 1 (means new R, V not desired) 


Perform "TIMETHET" 
INTIME = T, 


(leaves time in T) 


tpi 

^ • 

tpi 

Perform "S34/35.2' 


T = T . + T 

pass4 tpi 


DELVTPI = 
DELVTPF = 
X2 = RTX2 


DELVEET 


V , 

”pass4 


l\ 


^prime I 


WEC = V. . , shifted left X2 places (B7 earth, B 5 moon) 

RVEC = shifted left X2 places (B29 earth, B27 moon) 

XI = RTXl 
TS = K 


(i.e. not earth) 


rpad 
If XI 7 ^ -2; 

TS =|rls| 

XXXALT = TS 
Perform "APSIDES' 


POSTTPI = (TS^p - XXXALT), shifted right RTX2 places (B29) 

T. = T. . 
ig tpi 


TS = O 65 B. 


vn 


Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


Perform "S34/35.5" 
Perform "VN1645" 
Proceed to "P34/P74C' 


(page BURN- 19 ) 
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VNl6/t5 


SUBEXIT = Return address 
== %m01 

If bit 6(FINALFm) of FIAGWRD2 = 1: 

= 2 Voi 

If bit 13(REFSMFLG) of FUGWRD3 = 1: 

If MODREG < 64: 

TS = DELVEETl (same cell as DELVSIN) 

Perform "GET+MIA" (If TS = 0, may get 1301 

alarm: possible e.g. P3S) 

Set bit ll(TIMRFLAG) of FLAGWRD? = 1 
NWORDl = +0 

Call "CLOKTASK" in 0.01 seconds 

Delay 1 second (by putting job to sleep via "DELAYJOB") 

TS = 1645 

vn 

Proceed to "GOFIASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
othervd.se, proceed to "CIUPDATE" 

If bit 6(FINALFLG) of FLAGWRD2 = 0: (tag here "N45PROC") 

Set bit 6(FINALFLG) of FLAGWRD2 = 1 

Proceed to "CLUPDATE" 

NOMTIG = T (tag here "N45ENAJ") 

ig 

If bit l(PCFLAG) of FLGWRDIO = 0: 

Set bit 5(MANEUFLG) of FLGWRDIO = 1 
If bit 7(AUT0SBQ) of FLGWRDIO - 1: 

WRENDPOS = K 

posvel2 

WRENDVEL = K , 
posvel3 

Proceed to second line of "GOTOPOOH" 
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CLUPDATE 





Set bit ll(TIMRFIAG) of FLAGWRD? = 0 
CADRFLSm-2 = "■VNI 645 R" + 3 

Set restart group 4 to phase 1 (4.1> causing "INITDSP" to enter 
"VNl645R"if restart) 

Proceed to "VNI 645 R" 

VN1645R 

Set bit 7(UPDATFLG) of FUGWRDl = 0 


Proceed to address specified by SUBEXIT 

S3 , 4/3^«? Entered from "P 34 /P 74 C" and "P 35 /P 75 B" 

If bit 6(FINALFLG) of FLAGWRD2 = 0: 

Set bit 7(UPDATFLG) of FLAGWRDl = 1 
If bit 6(FINALFLG) of FLAGWRD2 = 1: 

Set bit 3(TPIMNFLG) of FLGWRDIO = 1 


^prime ~ DELVLVC (temporary storage) 

TS = 06B1 

vn 


Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 


If IdELVLVC - V, . I ^ 0: 

I — -^prime I ' 

Perform "S34/35.3" 


(at least one component change by 
^ 2“^ meter/cs = 0.02 fps) 


TS^ = ULOS 

TS^ = - unit (ULOS * UNM) 
TS 2 = TS^ ULOS 


DVLOS = 



Rettim 


DELVEET2. 
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Set bit 5(lMCTFm) of FLAGWRD2 = 0 


ECSTEER = 

1d2 

KT = C . 

atiginc 

Proceed to third line of "P75" 


Set bit 5(LMACTFLG) of FUGWRD2 = 1 

KT = C . . . 

ptiginc 

Set bits 7(UPDATFLG) and 5(TRACKFLG) of FLAGWRDl = 1 
Set bit l(PCFLAG) of FLGWRDIO = 0 
XI = -2 (settings for 

X2 = 0 earth) 


If bit 12(CMD0NFIG) of FLAGWRD 8 = 1 : 
XI = -10 (settings for 


X2 = 2 

RTXl = XI 

RTSRldMQ = K ^ ^ 
mutab 


4-Xl 


moon) 


TS = K 


mutab 


(subscript = 0 for earth, 8 for moon) 


-2-Xl 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1: 


Shift TS right 6 places 
RTMU = TS (scale .factor B 36 ) 

RTX2 = X2 

Set bit 6 (FINALFLG) of FLAGWRD2 = 0 

If bit l(PCFLAG) of FLGWRDIO = 1: (should be O) 

Proceed to "P 36 A" 


Perform "VN1645" 
Proceed to "P35/P75B" 


) 
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P35/P75B 


n 





T ' = T 

strt now 


T. 

ig 


INTIME 


’ , + KT 

strt 


T. 

ig 


T = 


ULCB = unlt(Sp^^^3 - 
UNHM = unltCE^^y * \ct3'> 

Perform "S34/35.2" 

Perform "334/35*5" (p^g® BURN-19) 

If bit 6(FINALFLG) of FLAGWRD2 = 1: 

Set bit 8(P35FLAG) of FIGWRDIO = 1 
Perform "VN1645" 

Proceed to "P35/P75B" 


P36 


Set bit 5(IMCTFLG) of FLAGWRD2 == 0 

ECSTEER = _ 

lb2 

Set bits 7(UPDATFLG) and 5(TRACKFLG) of FLAGWRDl = 1 
Set bit l(PCFLAG) of FLGWRDIO = 0 

Set bit l(PCFLAG) of FLGWRDIO = 1 (superseding previous line) 
XI = -2 (settings for 

X2 = 0 earth) 


If bit 12(CMD0NFLG) of FLAGWRD8 = 1: 


XI = -10 

(settings for 

X2 = 2 

moon) 

RTXl = XI 


RTSRldMU = K , , 
mutab 

'4-Xl 

TS = K , , 

mutab 2 _xi 

(subscript = 0 for earth 


8 for moon) 
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If bit 12(CM00NFLG) of FIAGWRD 8 = 1 : 

Shift TS right 6 places 
RTMU = TS (scale factor B 36 ) 

RTX2 = X2 

Set bit 6 (FINALF]jG) of FLAGWRD2 = 0 
If bit l(PCFLAG) of FLGWRDIO = 1: (should be) 

Proceed to "P 36 A" 

Perform "VNI 645 " 

Proceed to "P 36 A" 


P36A 


Set bit 8 (XDELVFLG) of FLAGWRD2 = 1 

T , = T . 

decl csi 

Perform "CSMCONIC" 

Set bit 9 (RVSW) of FLAGWRD7 = 1 (means new R, V not desired) 
CSTH = 0 


SNTH = K 

cs359p 

X 2 = RTX2 


(i.e. angle of about 90 °) 


VVEC = shifted left X2 places (B7 earth, B5 moon) (could use V 

XI = RTXl 

RVEC = shifted left X2 places (B29 earth, B27 moon) -attl^ 

Perform "TIMETHET" 

(although update flag set, note that P20 
ij = ip + T restart logic such that P20 not able to run 

ig csi after the V37 logic until get the display) 

TS = 0633 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

Perform "VN1645" 

Proceed to "P 36 RECYC" 
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P36RECYC 


n 



DELVLVC = 0 
Perform "N 90 /N 8 I" 
Perform "VNI 645 " 


Proceed to "P 36 RECYC" 

N90/N81 Entered from "P 3 IRT" and "P 36 RECYC" 

T = T 
decl ig 

Perform "PRECSET" 

If bit 6 (FINALFLG) of FUGWRD2 = 0: 

Set bit 7(UPDATFLG) of FLAGWRDl = 1 

It- = V 
■H.ig ~act3 

L. • = R 4.0 

-tig -act3 

(YCSM, YDOTC, YDOTL) = - (AUTOY, CMYDOT, LMYDOT) 

DELVLVC = CMYDOT 

y 

If bit I(PCFLAG) of FLGWRDIO = 1: 

If iDKLVLVCyl - < 0' 

DELVLVC = 0 (may give 130Ig alarm at N 45 display) 

TS = 0690 

vn 

Proceed to "VNFLASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 


TS - 0681 

vn 


Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervdse, proceed to previous line 


TS^ = - UNRM 


T% = - “"“Eact3 


TS^ = TS^ UNRM 
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DELVSIN = 


DELVLVC 



DELVEET2. = DELVSIN 


(same cell) 


Return 

PLOCSM 

Set bit ll(RCSBURN) of FL4GWRD1 = 0 

TS = (ECSTEER, O) (most significant half ECSTEER, least sig. O) 

If bit 8 (XDELVFIjG) of FIAGWRD2 = 1: 

TS = 0 

CSTEER = TS 

CAPF = K„ 

feng 

Proceed to "P 4 OS/F" 

PLOS/F Entered from "P 4 OCSM" and "P 4 ICSM" 

NOMTIG = T. 

ig 

= ^sec29p96 

Set bit lO(BURNFLAG) of FIGWRDIO = 0 
Set bit ll(TIMRFIAG) of FIAGWRD? = 1 
NVWORDl = +0 

Call "CLOKTASK" in 0.01 second 
Perform "R02B0TH" 

Proceed to "S 40 .I" (which exits to "S40.2,3", in turn to "P40SXTy") 

P40SXTY 

Set bit 4 (PFRATFLG) of FLAGWRD2 = 1 
Inhibit interrupts 
Perform "SETMINDB" 

Set bit 6(3AXISFIG) of FLAGWRD5 = 0 
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Release interrupts 
o Perform "R60CSM" 

NBRCYCLS = -1 (initialization for "UPDATEVG" for Lambert bum) 

If bit ll(RCSBURN) of FUGWRDl = 1: 

TS = (Tag here "P41/DSP") 

Perform "S4I.I" 

-gbody "" "DYNDISP" in "CLQKTASK" logic) 

AVBGEXIT = "CALCN85" 

NVWORDl = 0685 

vn 

Proceed to "P4OS/SV" 

DVTOTAL = 0 
AVBGEXIT = "S40.8" 

TS = 0204g 

Proceed to "GOPERFl": if terminate, proceed to "POST 4 I" 

if proceed, MRKRTMP = +1 and proceed (do test) 
otherwise, MRKRTMP = -1 and proceed 

CNTR = +0 (used as flag in "S4O.6") 

Call "S4O.6" in 0.01 second 

TS = 5 seconds 

If MRKRTMP > 0: 

TS = 18 seconds 

Delay TS seconds (by putting job to sleep via "DELAY JOB") 

NVWORDl = 0640^ (causes "CLOCKJOB" execution) 

Set restart group 6 to phase 2 (i.e. 6.2, causing "PRE4O.6" to be 

called if a restart) 

Proceed to "P4OS/SV" 
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PAOS/SV Entered from "P 4 OSXTY"; established by "T6RESET" for P15 

Tde^ji = \g - AVBGDT (AVBGDT = 29.96 sec for P 4 O/P 4 I; 100 sec for PI 5 ) 

Perform "MIDTOAVl" : if return to calling address +1, skip next line 

if return to calling address +2 (time slipped), 
proceed 

^ig " ^pptml + ^sec29p96 expected to be executed for PI 5 ) 

P 4 OTMP = TS - (TS set by "MIDTOAVl") 

Call "TIGBIM" in P 4 OTMP seconds 
End of job 

TIGBLNK Entered 5 seconds before start of Average-G 

Call "TIGAVEG" in 5 seconds 
NVWORDl = +0 

Establish "P 4 OBIJNKR" (priority 14g) 

End of task 
P40BLNKR 

Perform "CLEANDSP" (blanks DSKY except for program number) 

End of job 

TIGAVEG Entered when Average-G should start: 29.96 sec before T. 

for P 4 O/P 4 I; 100 sec before T. for P15. 

If bit 6 of MODREG = 0: (i.e. not in range 32 - 63 , hence e.g. P15) 

NVWORDl = 0695 ^ (Tag here "PI 5 AVEG") 

Proceed to "PREREAD" 

Set bit 4(PFRATFLG) of FLAGWRD2 = 0 

If bit ll(RCSBURN) of FLAGWRDl = I: 

NVWORDl = 1685 (Tag here "P 4 IREDSP") 

vn 

Call "TTG/O" in 29.96 seconds 
Proceed to "PREREAD" 
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o 




NWORDl = 0640 ^ (P 4 O) 

Call "TIG-5" in 24.96 seconds (i.e. at exactly 5 seconds before T^g) 
Proceed to "PREREAD" 

TIG-5 

Call "TIG-0" in 5 seconds 

NWORDl = - 400g (causes "NV 5 ODSP" to paste a V99) 

Establish "S 4 O.I 3 " (priority 20g) 

End of task 


TIG-0 


Set bit 13(IGNFLAG) of FLAGWRD? 
If bit I2(ASTNFLAG) of FUGWRD? 
NWORDl = 0640 


= 1 


0, End of task (no authorization 
received yet) 


vn 


Proceed to "IGNITION" 


IGNITION Entered from "TIG-0" and called by "V99P" 

OGAD = CDU 

X 

T T 

evt now 

Set bit 7(ENG0NFIG) of FLAGWRD5 = 1 (engine commanded on) 

Set bit 13(SPS Engine On) of channel 11 = 1 

Set bit lO(BURNFLAG) of FLGWRDIO = 1 (also set 1 in "SERVXTl") 

If bit 9(IMPULSW) of FLAG'WRD2 = 0: 

Set bit 13(STRULLSW) of FLAGWRD6 = 1 (enable steering below) 

If bit 9(IMPULSW) of FLAGWRD2 = 1: 

Set bit 13(STRULLSW) of FLAGWRD6 = 0 (Tag here "IMPLBURN") 

T. = T + T (for "CLOKTASK") 

ig now go ' ' 

Call "ENGINOFF" in (T +l) centi-seconds (uses low half of T 

loaded by "S 4 O.I 3 ") 

Set bit 9(IMPULSW) of FLAGWRD2 = 0 

Set bits 15-14(DAPBIT1, DAPBIT2) of FLAGWRD6 = 00^ (Tag here "PREPTVC") 
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T5L0C =."T5IDL0C" (turn off RCS DAP except for jet timing) 
Delay O. 4 O seconds (for thrust buildup) 

TVCPHASE = -1 
TVCEXPHS = +0 

Set bits 15-14(DAPBIT1, DAPBIT2) of FLAGWRD6 = 10^ 

Set restart group 6 to phase 3 (6.3, removing "PRE 4 O. 6 " protection) 
ERRBTMP = - (ERROR^, ERROR^) 

Set TIME 5 to cause program interrupt #2 in 0.01 seconds 
T5L0C = "TVCDAPON" 

Delay 1.6 seconds (i.e. until 2 seconds from ignition) 

If bit 13(STRULLSW) of FLAGWRD6 = 1: 

Set bit ll(STEERSW) of FLAGWRD2 = 1 
Channel 5=0 (turn off ullage jets) 

End of task 
CLOKTASK 

If bit ll(TIMRFLAG) of FLAGWRD? = 0, End of task 

T, = T - T. 
togo now ig ^ 

Call "CLOKTASK" in 1 second 
If N7W0RD1 = +0, End of task 

If NVWORDl f 0685 ^: (i.e. not P 4 I before start of Average-G) 

Establish "CLOCK JOB" (priority 27g) 

End of task 

Establish "DYNDISP" (priority 27g) 

End of task 

DYNDISP 

TS = V ^ . 

- -gtig 

Perform "S41.1" 

A = TS 
-gbody - 




) 
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Proceed to 3rd line of "CLOCKJOB" 


CLOCKJOB 

CDUSPOT = CDU (most significant halves loaded, in y,z,x order) 
Perform "QUICTRIG" 

Inhibit interrupts (released e.g. as part of End of job) 

If NWORDl = +0, End of job 
If NVW0RD1> 0: 

TS = NVWORDl 
Proceed to "REGODSP" 

If NVWORDl <0: (e.g. -400g, for V99 generation) 

TS = 0640 

vn 

Proceed to "CLOCPIAY" : if terminate, proceed to "V99T" 

if proceed, proceed to "V99P" 
othervdse, proceed to "V99E" 

If NVWORDl = -0: (as it will, for V97 generation) 

TS = 0640 

vn 

Proceed to "CLOCPIAY": if terminate, proceed to "V97T" 

if proceed, proceed to "V97P" 
otherwise, proceed to "V97E" 

V97E Entered for an ENTR response to V97) engine fail 

NVWORDl = 0640 

vn 

T. = -3276.8 seconds (most significant half set to -20, to give 

^^sp 59 59 display in "CLOCKJOB" for T ><v9 min) 

now 

Perform "SPSOFF" 

Delay 2.5 seconds (by putting job to sleep via "DEIAYJOB") 

Call "PRE4O.6" in 0.01 seconds 

Inhibit interrupts (done in waitlist routine) 

Perform "RCSDAPON" 

Release interrupts 
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Set bit 12(ASTNFLAG) of FIAGWRD? = 0 
Set bit 13(IGNFUG) of FIAGWRD? = 1 

NVWORDl = - 400g (gives a V99 flash, cf. "TIG-5") 

Establish "S4O.I3" (priority 20g) 

End of job 

V97P Entered for a FRO response to V97, engine fail 

NVWORDl = 0640 

vn 

Set bit 6(IDLEFAIL) of FIAGWRDl = 1 (keeps "S4O.8" fail logic from 

being triggered) 

Set bit ll(STEERSW) of FLAGWRD2 = 1 

Delay 2 seconds (by putting job to sleep via "DELAYJOB") 

Set bit 6(IDLEFAIL) of FIAGWRDl = 0 
End of job 

V97T Entered for a V34E response to V97} engine fail 

NVWORDl = +0 
Perform "SPSOFF" 

Delay 2.5 seconds (by putting job to sleep via "DELAYJOB") 

Inhibit interrupts 
Perform "RCSDAPON" 

Release interrupts 
Proceed to "V99T" 

V99E Entered for an ENTR response to V99j engine ignition 

Inhibit interrupts 
Perform "TVCZAP" 

Proceed to "P4ORCS" 

V99P Entered for a PRO response to V99, engine ignition 
Inhibit interrupts (released as part of End of job) 
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If bit 12(ASTNFLAG) of FLAGWRD? = 0: 


(check for restart reasons) 


Set bit 12(ASTNFIAG) of FLAGWRD? = 1 

If bit 13(IGNFLAG) of FLAGWRD? = 1: ("TIG-0" has been done) 

Call "IGNITION" in 0.01 second 
NVWORDl = 06A0 

vn 

End of job 

V99T Entered for a V34E response to V99 (and from "V9?T") 

Inhibit interrupts 
Perform "TVCZAP" 

Proceed to "P0ST41" 

SAP. Si Entered from "S40.8" when time-to-go below 4 seconds 

OMBGAC = 0 
CNTR = +MAX; 

Inhibit interrupts 

TS = (T, - T ), with sign agreement forced 

T +1 = TStl , limited 1 centi-second (most significant half of T 

^ not loaded) 

Call "ENGINOFF" in (T +l) centi-seconds 

go 

Set bit ll(STEERSW) of FLAGWRD2 = 0 
Release interrupts 
Proceed to "SERVEXIT" 

ENGINOFF Called by "IGNITION" and "S40.81" 

Perform "SPSOFF" 

Delay 2.5 seconds 
Perform "SETMAXDB" 

Perform "RCSDAPON" 

Perform "MASSPROP" 

Perform "TVCZAP" 

Establish "POSTBURN" (priority 12g) 

End of task 
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FOSTBURN 


TS = 1640 

vn 

Proceed to "REFLASH": if terminate, proceed to "POST 4 I" 

if proceed, proceed 

otherwise, proceed to previous line 

Proceed to "P 4 ORCS" 

P40RCS 

AVEGEKIT = "CALCN85" 

Delay 2 seconds (by putting job to sleep via "DELAYJOB") 

Inhibit interrupts 
Perform "SETMINDB" 

Release interrupts 
Proceed to "TIGNOW" 

TIGNOW (Entered from "P 4 ORCS" and established by "TTG/O" for P 4 I) 
TS = 1685 

vn 

Proceed to "REFLASH": if terminate, proceed to "POST 4 I" 

if proceed, proceed 

otherwise, proceed to previous line 

AVEGEXIT = "SERVEXIT" 

Proceed to second line of "GOTOPOOH" 

P0ST41 

AVEGEXIT = "SERVEXIT" 

Proceed to "GOTOPOOH" 

P41CSM 

Set bit ll(RCSBURN) of FLAGWRDl = 1 

CSTEER = 0 

TS = K. „ 
frcs2 

If bit 15(2JETSFLG) of FLAGWRDl =0: (i.e. 4 jets) 

TS = 2 TS 
CAPF = TS 

Proceed to "P 40 S/F" 

BURN -32 Rev. 0 




) 




TTG/0 Called by "TIGAVEG" for P41 
Establish "TIGNOW" (priority 20g) 

Set bit ll(TIMRFIAG) of FLAGWRD? = 0 
End of task 
P47CSM 

Perform "R02B0TH" 

Perform "MIDT0AV2" 

PAOTMP = TStl^p (TS set when exit from "MIDT0AV2") 
Call "TIGON" in P 4 OTMP centi-seconds 
End of job 
TIGON 

AVBGEXIT = "CALCN 83 " (writes over R1 and R2 of N78) 

Establish "P47B0Dy" (priority 30 q) 

Proceed to "PREREAD" 

^ P47B0DY 

DELVIMU = 0 

V , , =0 

-gbody 

Change priority of present job to 15g 
TS = 1683 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "P47B0DY" 

Proceed to "GOTOPOOH" 

P76ER77 

OPTFLAG = (bit 1 of MODRBG) (O for P 76 , 1 for P77) 

T. = NOMTIG 
ig 

TS = 0633 

u 
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Proceed to "GOFLASH" : if terminate, proceed to "ENDP76" 

if proceed, proceed 

othervd.se, proceed to previous line 

If OPTFLAG =0: (P76) 

TS = 0684 

vn 

If OPTFLAG =1: (P77) 

TS = 0681 

vn 

Proceed to "GOFLASH": if terminate, proceed to "ENDP76" 

if proceed, proceed 

othervd.se, proceed to 4th previous line 

Set bit l(NODOV37) of FLAGWRD2 = 1 

T = T 
decl ig 

If OPTFLAG = 0: 

Perform "LEMPREC" 

If OPTFLAG = 1: 

Perform "CSMPREC" 


T% = - ^i^^tt 

TS^ = unit(TS3 
TS^ = unitCTS^ * TS^) 
If OPTFLAG = 0: 


TS = DELVOV 
If OPTFLAG ^ 0: 

TS = DELVLVC 



= ^tt 


+ 


TS 



Perform "INTSTALL" 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 


(in push-dovm list location 6D) 
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If X2 i=- 0: 


(means integration output moon-centered) 



) 



Set bit 12(M00NFIAG) of FUGWRDO = 1 


VCV = TS^, shifted left X2 places (B7 earth, B5 moon) 

RCV = shifted left X2 places (B29 earth, B27 moon) 

T , = T. 
et ig 

Set bit 4(C0NICINT) of FIAGWRD3 = 0 

T = T 
decl etcm 

Perform "INTEGRVS" 

Perform "DJTSTALL" 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 

If X2 7 ^ 0: (means "INTEGRVS" output was moon-centered) 

Set bit 12(M00NFIAG) of FLAG^fllDO = 1 


R 4. = R J.4.T 

-rect -attl 

RCV = R ^ 

— T?ect 

T = T 
et att 

V , = V 
-rect -attl 

VCV = V ^ 

— —rect 

TDELTAV = 0 
TNUV = 0 


T = 0 
c 


(scaled B29 earth, B27 moon) 


(scaled B7 earth, B5 moon) 


XKEP = 0 (notation also "XPREV") 

Set bit 13(INTGRAB) of FIGWRDIO = 1 
If OPTFLAG = 0 : (i.e. P 76 ) 


Perform "MOVE AT, EM " 

Set bit ll(LMOONFIG) of FLAGWRDS = 1 

^ther ” (X2 used to determine 

—other ~ TNUV necessary shifts) 
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(If OPTFLAG = 0): 

If bit I2(M00NFLAG) of FLAGWRDO = 0: 

Set bit ll(LMOONFLG) of FIAGWRD8 = 0 
If OPTFLAG = 1: (i.e. P77) 

Perform "MOVEACSM" 

Set bit I2(CM00NFLG) of FLAGWRD8 = I 

If bit l(AVEMIDSW) of FLAGWRD9 = 0: 

R = RCV + TDELTAV (X2 used to determine 

V = VCV + TNUV necessary shifts) 

T = T 
pptm et 

If bit I2(MD0NFLAG) of FLAGWRDO = 0: 

Set bit 12(CM00NFLG) of FUGWRD8 = 0 
QPRET = Return address (to line after next) 

Perform "INTWAKE" (starting at from last line, awaken jobs) 
Set bit l(NODOV37) of FLAGWRD2 = 0 (Tag here "OUT") 

MRKBUFl = -1 

Proceed to second line of "GOTOPOOH" 

ENDP76 

MRKBUFl = -1 
Proceed to "GOTOPOOH" 
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Quantities in Computations 

See also list of major variables and list of routines 




) 


AUTOY : Value of out-of -plane position computed in 


B29, units meters. 


It is computed as 


"PRECSET", 
• UPl. 


scale factor 


AVEGDT: Required time before T. when Average-G is to be turned on, scale 
factor B28, units centi-se§onds . It is 29.96 seconds for P 40 /P 4 I 
and 100 seconds for PI 5 . 


AVEGEXIT: See General Program Control. 

Catiginc’ Ei'^sable memory constant, program notation "ATIGINC", scale 
® factor B28, units centi-seconds, used to set KT for P 35 (i.e. 
CSM-active time delay until midcourse maneuver) . 

^hamdelh' memory constant, program notation "HAMDELH", scale 

factor B29, units meters, giving the required altitude difference 
for the height -adjustment maneuver targeting in P 3 I. 

C tiginc’ E^^^sable memory constant, program notation "PTIGINC", scale 
P “ factor B28, units centi-seconds, used to set KT for P75 (i.e. 

LM-active time delay until midcourse maneuver) . 

CADRFLSIit 2 : See Display Interface Routines. 

CAPF: Nominal value of engine thrust (SPS, 2- jet PCS, or 4- jet RCS), scale 
factor B7, units "M. Newtons", where the unit is equivalent to 10^ 

Newtons (or the same as expressing force in kilogram-meters/centi-second^) . 
Program notation is "F" . 

CDUSPOT: See Coordinate Transformations. 

CENTANG: Value of desired orbital central angle of the passive vehicle from 
TPI time to intercept (input via R3 of N 55 ), scale factor BO, units 
revolutions. Used in P31/P32/P72 as a program control quantity. 

CMYDOT: Value of active vehicle out-of -plane velocity computed in "PRECSET", 

scale factor B7, units meters/centi-second . It is computed as 

V • UPl 

^ct3 -* 

CNTR: See Digital Autopilot Interface Routines. A setting of +MAX (in 

"S 4 O. 8 I" for cutoff) corresponds to a time delay of about 2.27 hours, 
effectively disabling updates in "TVCEXEC" . 

CSTEER: See Steering Computations. 

CSTH: See Conic Routines. 

DELVEETl, DELVEET2, DELVEET^.: See Rendezvous Computations. 

DELVn^: See Display Computations. 
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DELVLVC: Value of velocity increment for display in local vertical 

coordinates, scale factor B7, units meters/centi-second, displayed by 
N8l and N86. Program notation also "DELVSLV", and cells can also be 
used for temporary storage purposes before the display. The z-axis 
is along -r at ignition, the y-axis is along v "'*■ r, and the x-axis 
is along y z. 

DELVOV: Velocity change information for LM loaded by N 84 in P 76 , scale 

factor B7, imits meters/centi-second. Also used to contain CDH velocity 
change in local vertical coordinates for possible display via N82 in 
P32/P72. 

DELVSIN: Value of velocity increment in reference inertial coordinates 

computed for external Delta-V burns (P30, P31> P32/P72, P33/P73j and 
P 36 ), scale factor B7, units meters/centi-second. Same cell also has 
the tag DELVEET3.: for compatibility vd-th "VN1645", however, the 
"loading" of DELVEET 3 . with DELVSIN is shown where necessary. DELVSIN 
is used in "S 40 .I" to compute the required velocity-to-be-gained for 
the external Delta-V bum. 

DELVTPF: Value of magnitude of velocity change required at intercept, scale 
factor B7, units meters/centi-second. 

DELVTPI: Value of magnitude of velocity change required to perform the 
(non-midcourse) burn in P34/P74, scale factor B7, units meters/ 
centi-second . It is the magnitude of DELVEET3.. 

DIFFALT : See Rendezvous Computations . 

DVLOS: Value of required velocity increment in line-of-sight coordinates, 
scale factor B7, units meters/centi-second, computed for optional 
display by N59. The R1 component is in the direction of ULOS (i.e. 
"forward/aft", with + direction "forward"); the R2 component is along 
R3. ULOS (i.e. "right/left", with + direction "right"); and the R3 
con^ionent is along UNRM ULOS (i.e. "up/down" with + direction "down"). 
These are all as seen by the active vehicle . 

DVTOTAL: See General Program Control. 

ECSTEER: Single precision cell used to initialize CSTEER in P 40 if a Lambert 
burn is required, scale factor B2. It is set to 1 at the start of 
P 3 I, P 32 , P33, P34, P35, and P 36 ; it is set to 0.5 at the start of P37. 

ELEV: See Rendezvous Computations. 

ERRBTMP: See Digital Autopilot TVC Routines. 

ERROR^, ERROR^: See Digital Autopilot RCS Routines. 

HAPO, HPER: Apocenter and pericenter altitudes above K ^ |PPSj, 

scale factor B29, units meters, limited in P 30 to K 

’ ’ maxnm 

INTIME: See Rendezvous Computations. 
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^I'^Odee’ j program notation "I3ODBG", scale factor BO, imits 

^ ® revolutions. Value is 16163^,, corresponding to about 

0.36111112 revolutions or 130°. 

^130deelo’ '^O’^stant, program notation "I3ODBGLO", scale factor BO, units 
^ ® revolutions. Value is 13434g l6l63g, the same as (in 

the "low" half of memory for addressing considerations). ^ 


^112' precision constant, program notation "BITI3", scale factor 

B2, value 1 x 2“'^, corresponding to an equation value of 1.0. 


^IdlOfns' , program notation "l/lOFPS", scale factor B?, imits 

^ meters/centi-second. It is equated by assembler techniques to 


K 


epsilnl 


(see Rendezvous Computations), a value of 0.1 fps. 


^208deelo" *^0'^stant, program notation "208DEGL0", scale factor BO, units 
° revolutions. Value is 22407rt 36673rt, corresponding to about 
0.57861112 revolutions (208.30°). 


^2‘ithous‘ ^o^s'tant, program notation "25TH0US", scale factor B-I7, units 
of (meters/centi-second) per meter. Value is -0.4114470842 E-5 
X 2"^', corresponding to -2.5 x O.3048 x 0.01 x (I/I852) x 2^"^, where 
first term is nominal value of the constant (fps/nmi), second converts 
to meters, third to centi-seconds, fourth to nautical miles, and 
fifth is scale factor. 


^2b6’ Conic Routines. 

K„ , : See Conic Routines. 

2pisc 

K_ , : Constant, program notation "5SECDP", scale factor B28, units 

^ centi-seconds. Value is 500 x 2“^^, corresponding to 5 seconds. 

^600sc' Orbital Integration. 

^60min' program notation "6OMIN", scale factor B28, units centi- 

^seconds. Value is 36OOOO x corresponding to 60 x 60 x 10^ x 

2“'^ , where first term is value in minutes, second converts to 
seconds, third converts to centi-seconds, and foiirth is scale factor. 


^cs359p' 


See Rendezvoias Computations . 


'^dpmOl' Constant, program notation "DP-.Ol", scale factor BO, units 
revolutions. Octal value is 77777^ 61337*, corresponding to 
-16440* X 2 or -7456 X 2 ~^°. This is approximately equal 
to-0. 01/360, i.e. -0.01°. 


^feng' Constant, program notation "FENG", scale factor B7, same units 
as CAPF. Value is 9.1188544 x 2 , corresponding approximately 

to 20500 X 9.80665 X 0.45359237 X 10"^ X 2-7, where first term is 
SPS thrust in pounds, second is gravity in meters/second^, third 
converts pounds to kilograms, fourth converts to centi-seconds^, 
and fifth is scale factor. 
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K„ 2' Constant, program notation "FRCS2", scale factor B7, same units 
as CAFF. Value is 0.087437^37 x , corresponding approximately 
to 2 X 99. S X 0.98481 x 9.80665 x 0.45359237 x 10"^ x 2 '^, where 
first term acco\mts for 2 RCS jets, second is RCS thrust in pounds, 
third is cosine 10°(accomt for canting of nozzle), fourth is 
gravity in meters/second^, fifth converts pounds to kilograms, 
sixth converts to centi-seconds^, and seventh is scale factor. 

The product of the first three terms is about 196. 568 pounds. 

K dn’ ‘^°'^stant, program notation "MARSDP", scale factor BO, units 
^revolutions. Value in octal is 00000^ 35100^^ corresponding 
to the complement of 2 > or 0.02 aegrees“( approximately) . 

K : See Display Computations, 
maxnm ^ 

K . , : See Conic Routines, 

mutab . 

1 

K Single precision constant, program notation "P0SVEL2", scale 

posvel2 units meters. Stored (and nominal) value is 

6O8 X 2“^*^, corresponding to about 1994.751 x O.3O48 x 2~ where 
first term is value in feet, second converts to meters, and third 
is scale factor. 


K Single precision constant, program notation "P0SVEL3", scale 

posve 3 fag-tor BO, \mits meters/centi-second. Nominal value is 0.00608, 
corresponding to about 1,994751 x O.3O48 x 0.01, where first term is 
value in fps, second converts to meters, and third to centi-seconds. 
The octal value is 00144rtj corresponding to 100 x 2"^^ or about 
2.0025 fps. 


K Constant, program notation "RPAD", scale factor B29, units meters. 

Value is 6373338 x 2“^'^, corresponding to 6373338 meters (or 
20,909,901.5747 feet or 3441.3272 nmi). 


^sec29p96' 


Constant, program notation "SEC29.96", scale factor B28, units 
centi-seconds. Value is 2996 x 2“^°, corresponding to 29.96 seconds. 


KT: Value of time delay before performance of midcourse maneuver for P35/P75, 
scale factor B28, units centi-seconds (set to the appropriate erasable 
memory constant when these programs started). 

LMYDOT: Value of passive vehicle out-of -plane velocity computed in "PRECSET", 

scale factor B7, units meters/centi-second. It is computed as 

V ^ • UNRM. 

-pass3 “ 

MRKBUFl: See Optics Computations. 


MRKRTMP: Single precision cell, scale factor BI4, used to indicate whether 
only the gimbal trim is to be performed (value of -l) , or if a gimbal 
drive test in addition is to be performed (value of +l) . 

NBRCYCLS: See Steering Computations. 
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NNl: See Rendezvous Computations. 



NOMTIG: Value of nominal ignition time sampled in "VN1645" and "P4OS/F", 
scale factor B28, units centi-seconds. It is used in "S40.9" to 
correct Lambert for oblateness (for earth-centered computation), and 
in P76/P77 to initialize the N33 display. 

NOMTPI: See Rendezvous Computations. 


MVWORDl: Single precision communication cell with "CLOKTASK". If it is 
’ "^togo nierely updated; if it is positive non-zero, "CLOCKJOB" 
is usually established (except in P4I, where a value of 06S5 
causes ^DYNDISP" to be established instead) to cause display'^f 
the verb-noun; if negative non-zero, "CLOCKJOB" is established 
to generate an 0640._ display with option bits set to cause (for 


;no ^ 4.v,'vn ocu ou uause 

-400^; the pasting of verb 99 by "NV5ODSP" . and if 


NVWORDl T-'-o/ -“V. ux vBx-u 'i'i oy "i\iv • and if 

negative 0 (set e.g. in "S4O.8" for low thrust) then the same 
tj^ of display IS generated as for negative non-zero, except 
the verb is 97 instead of 99. The option bits are set by "CLOCPLAY" 


OGAD: See Digital Autopilot TVC Routines. 


OMEGAC: See Steering Computations. 

OPTFLAG: Single precision cell, scale factor BI4, set to 1 if P77 is 
executed and to 0 if P76 is executed. It is used for indexing 
purposes in "P76ER77". 


P4OTMP: Required time delay until "TIGBLNK" is performed, scale factor 
B28, units centi-seconds (used for restart protection purposes), 
s^gle precision in P47 for analogous purpose, BI4 centi-seconis . 
It uses the same cells as the z component of DELVEET2. 


Used 


pMGA: See Display Computations. 


pericenter altitude (above K or IrI^I), scale factor 
B29, units meters, predicted to exist aftePthe burn. 


QPRET : See Orbital Integration, 


^ctl’ ^ct2' ^ct3' Rendezvous Computations. 

-other" Orbital Integration. 

^assl" ^ass2" ^ass3" Rendezvous Computations. 

^ect^ ^ectcm= Orbital Integration. 

^i : Value of position vector at ignition time, scale factor B29, units 
° meters. 
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RCV: See Orbital Integration. 

RLS: See Coordinate Transformations. 

RTMU: Value of "retained" mu of primary body, scale factor B 36 (earth or 
moon), used e.g. in "CDHMVR" . 

RTSRldMQ: Value of "retained" square root of l/mu for primary body, scale 
factor B-I 7 (earth) or B-14(nioon), program notation "RTSRl/MU", used 
e.g. in "CSI/BI". 

RTXl, RTX2: See Orbital Integration. 

RVEC: See Conic Routines. 

SNTH: See Conic Routines. 


SUBEXIT: Single precision cell used to retain return address information. 


T: See Conic Routines. 

T : See Orbital Integration, 
c 

T ,, , T See Rendezvous Computations, 
cdh’ csi 


Tetj '^etcm* Orbital Integration. 

Tg^: See Steering Computations. 

T , : Time of intercept, scale factor B28, units centi-seconds . 
pass4 

T , , : See IMU Computations, 
pptml ^ 


T , . : Time of start of P35/P75 targeting computation, scale factor B28, 
®^^^units centi-seconds (loaded at start of "P35/P75B" but not subsequently 
referenced) . 


T. : Value of time until T. (computed as T - T. in "CLOKTASK", 
°®°hence negative before T^^ has arrived), sc^le factor B28, units 
centi-seconds. 


T^p^: See Rendezvous Computations. 


tpiO^ 


Value of sampled at the end of "P32/P72C" for use in initializing 

. in "P 73 , scale factor B28, units centi-seconds. It is also used 
in^^P33/P73B" to derive T2T0T3, the change in T^ ^ time. 


T1T0T2, T2T0T3 : See Rendezvous Computations. 


T5LOC: See Digital Autopilot Interface Routines. 


TDELTAV: See Orbital Integration. 

TIME5: See Digital Autopilot Interface Routines. 


TNUV: See Orbital Integration. 
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TVCEXPHS, TVCPHASE: See Digital Autopilot TVC Routines. 

UK)S : See Rendezvous Computations . 

UNRM: See Rendezvous Computations . 

UPl: See Rendezvous Computations. 

Vg^cti* ^ct2' ^ct3' Rendezvous Computations. 

-gbody* ^®locity-to-be-gained in (RCS DAP) "control" axes, scale factor 
^ ^ B7, units meters/centi-second. See "S41.I" for the transformation 

used. In P4I, it is updated every second prior to start of Average-G 
(after return from R60) due to "DYNDISP" computations. Program 
notation also "DELVCTL". 

-gtig’ -gained at ignition time in reference coordinates, scale 

^ ^ factor B7, units meters/centi-second. Program notation also "VGPREV", 

reflecting the fact that the same cells used to store previous value 
of velocity-to-be-gained in "VGCOMP" . 

^prime' Rendezvous Computations. 

V^ther' Orbital Integration. 

Vssl’ Vss2^ Vss3’ Vss4= Rendezvous Computations. 

^ect^ ^ectcm= Orbital Integration. 

^ig* velocity vector at ignition time, scale factor B7, imits 

° meters/centi-second. 

rime* Rendezvous Computations. Also used in "S34/35.5" for temporary 
^ storage purposes, to permit detection of a change in the specified 
velocity increment for the burn. 

VCV: See Orbital Integration. 

VGDISP: Magnitude of velocity-to-be -gained vector, used for display purposes 
in N40, N42, and N80. Scale factor is B7, units meters/centi-second. 

WEC: See Conic Routines. 

WRENDPOS, WRENDVEL: See Measurement Incorporation. 

XKEP: See Orbital Integration. 

XXXALT; Value of base altitude for computing apogee and perigee information, 
scale factor B29 (earth) or B27 (moon), units meters. 

YCSM: Value of active-vehicle (CSM for P3x program) out-of-plane position 
for display in R1 of N90, scale factor B29, units meters. It is the 
complement of AUTOY. 
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YDOTC: ValT^ of active-vehicle (GSM for P3x program) out-of-plane velocity 
for display in R2 of N90, scale factor B7, units meters/centi-second . 
It is complement of CMYDOT. 

YDOTL: Value of passive-vehicle (LM for P3x program) out-of-plane velocity 
for display in R3 of N90, scale factor B?, units meters/centi-second. 
It is complement of LMYDOT. 


) 
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Conic Routines 


KEPLERN 


(Entered only from "KEPPREP") 


Reset OA'-erflow indicator 


Start of "Kepler Subroutine" 


ITERCTR = 20 


IdMJ = K 


mutab 


-XI 


(Xl = -2 if earth, -10 if moon, as set near 
end of "KEPPREP") 


ROOTMJ = K 


mutab, 


2-Xl 


IdROOTMU = K 


mutab 


4-Xl 


URRECT = unitR 


'—rect 


R1 = I R . i 
J —rect I 



KEPC2 = IdMU R1 " 1 


ALPHA = (1 - KEPC2)/ R1 

If ALPHA < 0: 

TS = K / ALPHA 

m 50 sc ' 

If overflow, reset indicator and set TS = +MAX 
If no overflow: 



If ALPHA 0: 

TS = K„ . //aLPH^ 

2pisc ' ^ 

If overflow, reset indicator and set TS = +MAX 


XMAX = TS 


(Tag here "STOREMAX") 
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TS^ = IdROOTMU XMAX / ALPHA (pericxl, B28 c.s., in p.d. location O) 
Proceed to "PERIODCH" 

PERIODCH 

If TS^^O: 

28 

If no overflow has taken place ( e . g . TS^ ^ 2 cs ) : 

TS =|tauorb|- TS^ 

If TS ^ 0: 

TAUORB = TS sgn TAUORB 

Proceed to "PERIODCH" (starting at Si’d line, compute TS) 
X = XKEPNEW (tag here "MODDONE") 

If X sgn TAUORB > 0: 

If |X sgn TAUORB) - XMAX < 0: 

Skip next line 
X = i XMAX sgn TAUORB 

If TAUORB^ 0: (tag here "STORBNDS") 

XMIN = 0 
If TAUORB < 0: 

XMIN = - XMAX 
XMAX = 0 

Proceed to "DXCOMP" 
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DXCOMF 


EPSILONT = \hee22 TAUORb| (rounded multiplication) 

DELX = X - XKEP (program notation also XPREV) 

Proceed to "KEPLOOP" 

KEPLOOP 

PDXSQ = X^ 

XI = ALPHA PDXSQ 
Perform "DELTIME" 

If overflow has taken place: 

Reset overflow indicator 
If X ^ 0: 

XMAX = X 
If X ^ 0: 

XMIN = X 
DELX = i DELX 

If DELX = 0: (i.e. magnitijde less than K 

Proceed to address specified by KEPRTN 
X = X - DEIX 
T = T 

c 

Proceed to "BRNCHCTR" 

DELT = TAUORB - T 

If EPSILONT - 1 DELT | 0 : 

Proceed to "KEPCONVG" 

TS = DELX DELT / (T - T ) (nvimerator rounded before division, 

^ result shifted right 1 place by 

tnmcated shift for scaling) 
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If TS <0: 


XMAX = X 
TS^ == TS 

If XMIN - (X + TS) 0: (or overflow taken place) 

TS^ =0.9 (XMIN - X) (roimded multiplication) 

If TS ^ 0: 

XMIN = X 
TS^ = TS 

If XMAX - (X + TS) < 0: (or overflow taken place) 

TS^ =0.9 (XMAX - X) (rounded multiplication) 

DELX = TS^ 

If DELX =0: (i.e. magnitude less than K ) 

GpSX 

Proceed to "KEPCONVG" 


X = X + DELX 

T = T 
c 

Proceed to "BRNCHCTR" 


BRNCHCTR 

ITERCTR = ITERCTR - 1 
If ITERCTR = 0: 

Proceed to "KEPCONVG" 
Proceed to "KEPLOOP" 


KEPCONVG 

RCV = (R1 - XSQCpXIp) URRECT + (T - IdROOTMU T? SpXIp) V^^^^ 

TS = . I I (XI SpXIp - 1) URRECT 

(RCV\ 

VCV = TS + (1 - XSQCpXIp /|RCV| ) V^^^^ 

T = T 
c 

XKEP = X (XKEP notation also XPREV) 

Proceed to address specified by KEPRTN (loaded by "KEPPREP") 
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DELTIME (Entered with PDXSQ loaded and XI available) 


SpXIp 

O 

CO 

11 

+ K T XI 
si 


+ K „ XI^ 
s3 

+ K , XI^ 
s4 

+ K XI 
s5 





+ xR 

+ ■'ss 

+ K o Xl' 
s9 

CXI = 

o 

o 

+ K , XI 
cl 

+ 

+ k^3 xR 

+ K , XI^ 
c4 

+ K c XT' 
c5 





+ xR 

+ ''c8 

+ K o Xl' 
c9 


XSQCpXIp PDXSQ CXI (This is "Kepler Equation Subroutine") 

TS^ = KEPCl XSQCpXIp (triple precision) 

TS^ = KEPC2 PDXSQ SpXIp (triple precision) 

TS^ = X (R1 + TS^) (addition triple precision) 

T = IdROOTMU (TS^ + TS^) (rounded shift and multiply, triple 

precision addition) 

Return 

LAMBERT Entered only from "INITVEL2" 


RTNCONC = Return address 
Reset overflow indicator 
ITERCTR = 20 


Start of "Lambert Subroutine" 


IdMU = K 


mutab 


-XI 


(XI = -2 if earth, -10 if moon) 


ROOTMU = K 


mutab 


2-Xl 


IdROOTMU = K 


mutab, 

EPSILONL = K:^)Qel9 ™®SIRED 

Set bit 3(ITER1SW) of FLAGWRDl 

TS T = RIVEC 
-rl - 

TSg = R2VEC 
Perform "GEOM" 

SNTH = TS 


(ro-unded multiplication) 
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PDLAMBDA = R1 / MAGVEC2 

CSTH = (computed by "GEOM") 

ImCSTH = 1 - CSTH (scale factor B2, truncated shift) 

TS = 1 - CSTH, -using rounded right shift 1 (same scaling as ImCSTH) 
If TS = 0: (angle 0° or 360°) 

Set bit 3(N0S0LNSW) of FIAGWRD5 = 1 


Proceed to address specified by RTNCONC 


MAX = SNTH / ImCSTH + \f2 PDLAMBDA/ TS 
If overflow has taken place: 


(MAX notation also 
COGAMAX) 


MAX = K 

cogupm 

Skip next 3 lines 
If MAX^ 0: 


If MAX - K 0: 

cogupm ■' 

MAX = K 

cogupm 

CSTHmRHO = CSTH - PDLAMBDA 


TS = K ^ 

coglom 

If GEOMSGN 


TS^ = CSTHmRHO / SNTH 

If TS^ does not overflow (not ^ 2^ ±n magnitude) 


TS = TS^ 

MIN = TS (notation also COGAMIN) 

If bit 2(GUESSSW) of FLAGWRDl = 0: 
TWEEKIT = 2~^^ 

If bit 2(GUESSSW) of FLAGWRDl = 1: 
TWEEKIT = 2"2 (i.e. 0.25) 

COGA = i MIN + ^ MAX 
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(If bit 2(GUESSSW) of FUGWRDl = l) ; 

DCOGA = COGA 
Proceed to "LAMBLOOP" 

LAMBLOOP 

TS = MCSTH / (SNTH COGA - CSTHmRHO) 

If TS^O: 

If DCOGA 0: 

MAX = COGA 
If DCOGA < 0: 

MIN = COGA 

Proceed to "COMMONLM" 

P = TS (scaled B4) 

RdA = - P (K^^ 3 _q + COGA^) (scaled B6) 

) If overflow has taken place: (e.g. |p 1:^2^ or |RdAl^2^) 

MIN = COGA 

Proceed to "COMMONLM" 

TS = P 

Perform "GETX" 

TPREV = T 

If bit 7(INFINFLG) of FLAGWRD8 = 1: 

If DCOGA >.0: 

MAX - COGA 
If DCOGA < 0: 

MIN = COGA 

Proceed to "COMMONLM" 

Perform "DELTIME" 

J 
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If overflow has taken place: 

T = TPREV 
MAX = COGA 

Proceed to "COMMONLM" 

TERRLAMB = TDESIRED - T 

If EPSILONL - |tERRLAMb| :^0: 

Proceed to "INITV" 

ITERCTR = ITERCTR - 1 

If ITERCTR = 0: 

Proceed to "SUFFCHEK" 

If bit 3(ITER1SW) of FLAGT/fflDl = 0: 

If (T - TPREV) = 0: 

Proceed to "SUFFCHEK" 

Perform "ITERATOR" 

If DCOGA =0: (i.e. magnit\jde less than 2~^^) 

Proceed to "SUFFCHEK" 

COGA = COGA + DCOGA 
Proceed to "LAMBLOOP" 

COMMONIM 

DCOGA = i DCOGA 

If DCOGA =0: (i.e. magnitude less than 2”^^) 

Proceed to "SUFFCHEK" 

COGA = COGA - DCOGA 
Proceed to "LAMBLOOP" 

SUFFCHEK 

If ^ TDESIRED + -(tERRLAMB) < 0: 

Set bit 3(N0S0LMSW) of FLAGWRD5 = 1 
Proceed to address specified by RTNCONC 
Proceed to "INITV" 
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INITV 


TS = ROOTMU x/p' / R1 

WEC = TS COGA URl + TS (UN URl) 

Set bit 3(N0S0LNSW) of FLAGWRD5 = 0 

If VTARGTAG = 0: 

TS = MAGVEC2 

Perform "LAMENTER" 

I 4 . ^ = TS 

-target — v 

Proceed to address specified by RTNCONC 

ITERATOR (Entered only from "lAMBLOOP") 

If bit 3(ITER1SW) of FLAGWRDl = 0: Start of "Iterator 

Subroutine" 

TS = TERRLAMB DCOGA / (T - TPREV) 

If bit 6(0RDERSW) of FLAGWRD 8 = 1 : 

TS = I TS| sgnTERRLAMB 
If bit 3(ITER1SW) of FLAGWRDl = 1 : 

Set bit 3(ITER1SW) of FLAGWRDl = 0 
TS =(MAX TWEEKIT - MIN TWEEKIT) sgnTERRLAMB 
If TS < 0: 

If bit 6(0RDERSW) of FLAGWRD 8 = 0: 

MAX = COGA 

If MIN - COGA - TS 0: (or overflow taken place) 

TS = 0.9 (MIN - COGA) 

DCOGA = TS 
Return 

If bit 6(0RDERSW) of FLAGWRD8 =0: (TS ^ O) 

MIN = COGA 
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If MAX - COGA - TS 0: (or overflow taken place) 

TS = 0.9 (MAX - COGA) 

DCOGA = TS 
Retiirn 

TIMETHET This is "Time-Theta Subroutine", entered from "CDHMVR", 

"CSI/BI" (2), "HOPALONG", "P34/P74C", "P36A", 
RTNCONC = Return and "P37E" 

address 

Reset overflow indicator 
TS = RVEC 

_r — 

TS = VVEC 

— V — 

Perform "PARAM" 

If overflow has taken place : 

Set bit 4(C0GAFLAG) of FLAGWRD8 = 1 
Proceed to "POODOO" (pattern 20607 ^) 

O 

TS = P 

Perform "GETX" 

Proceed to "COMMNOUT" 

COMMNOUT 

If bit 7(INFINFLG) of FLAGWRD8 = 1: 

Proceed to "POODOO" (pattern 20607g) 

Set bit 4(C0GAFLAG) of FLAGWRD8 = 0 
Perform "DELTIME" 

If bit 9(RVSW) of FLAGWRD7 = 0: (means new R, V desired) 

Perform "NEWSTATE" 

Proceed to address specified by RTNCONC 
NEWSTATE This is "State Vector Subroutine" 

TS^ = (R1 - XSQCpXIp) URl + (T - IdROOTMU X^ SpXIp) WEC 
TS = jTS I (T^ at top of push-down list) 

Proceed to "LAMENTER" 


CONC-10 


Rev. 0 
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LAMENTER (Entered with TS set to radius magnitude) 


R2 = TS 

URl 

WEC (same formulation as on 

page CONC-4, but different 
quantities enter calculation) 

TIMERAD This is "Time-Radius Subroutine", entered from "PREC125" and 

"TMRADIOO" 

RTNCONC = Return address 
Reset overflow indicator 

TS = RVEC 
— r — 

TS = WEC 

—V — 

Perform "PARAM" 

If overflow has taken place: 

Set bit 4(COGAFLAG) of FLAGWRD8 = 1 
Proceed to "POODOO" (pattern 20607 c.) 

O 

PDEC^ = (l - RdA) URl - COGA ^P (^ 21 ^^ ~ RdA)' U2 (computed B7, 

then made B3) 

—1 A 

If all components of PDECC < 2 or if overflow has taken place: 

Set bit 3(N0S0LNSW) of FLAGWRD5 = 1 
Proceed to "POODOO" (pattern 20607g) 

COSF = ((P R1 / RDESIRED) - ij /\PDECC| 

TS = 1 - COSF^ 

If TS < 0, or if overflow has taken place: 

COSF = 1 sgn COSF 

Set bit 5(APSESW) of FLAGWRD8 = 1 (trajectory does not pass 

through RDESIRED) 

TS = 0 

Skip next 2 lines 
TS = sgn SGNRDOT 

Set bit 5(APSESW) of FLAGWRD8 = 0 


ROOTMU X 

TS = (XI SpXIp - 1) 

R2 

= TS + (1 - XSQCpXIp / R2) 
Return (TS^ in MPAC) 
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PDUR2 = COSF unitPDECC + TS (UN unitPDECC) 

CSTH = PDUR2 • URl, with magnitude limited less than 1 
SNTH = (URl PDUR2) • UN 
TS = P 

Perform "GETX" 

Set bit 3(NOSOLNSW) of F1AGWRD5 = 0 
Proceed to "COMMNOUT" 

APSIDES This is "Apsides Subroutine" 

RTNCONC = Return address 
Reset overflow indicator 

TS = RVEC 
— r — 

TS = WEC 

—V — 

Perform "PARAM" 

Reset overflow Indicator 

ECC = \/l - P RdA* (note that "SR30.1" formed absolute value 

before taking square root) 

TS^p = R1 P /(l + ECC) (at top of push-down list, in OD) 

TS^^ = 2(R1 / RdA) - TS^p (left in MPAC) 

If TS < 0, or if overflow has taken place: 
ra ’ ^ 

TS = +MAX; 
ra 

Proceed to address specified by RTNCONC (TS scaling same as RVEC) 
PARAM (Entered with T^ in OD and T^ in MPAC) 

RTNPRM = Return address Start of "Conic Parameters Subroutine" 
Set bit lO(NORMSW) of FMGWRD? = 0 
Set bit 4(C0GAFLAG) of FLAGWRD8 = 0 
GEOMSGN = 27777g 


(a positive quantity) 


Perform "GEOM" 




COGA = TS / TS 
cos ' 


(TS left with sine of angle) (overflow ^f 


IdMU = K 


mutab 


-XI 


(XI = -2 if earth, -10 if 


moon 


) 


2? or 


ROOTMU = K 


mutab 


2-Xl 


IdROOTMU = K 


4-Xl 
2 


mutab 

TS^= IdMU R1 MAGVEC2' 
RdA = - TS^ 


(MAGVEC2 = ( T^l from "GEOM") 


P = TS^ TS (TS from "GEOM" with sine of angle) 

Proceed to address specified by RTNPRM 


GEOM (Entered with at top of pushdown list and TS^ in MPAC) 

Start of "Geometric Parameters Subroutine" 


U2 = 

unitTS^ 


-2 

MAGVEC2 = [tS^I 

URl = 

= unitTS T 
— rl 

TS 

= URl • U2 

COS ~ 

R1 = 

\"5rll 

TS = 

URl U2 


(left at top of push-down list) 


If bit lO(NORMSW) of FLAGWRD7 =0: 

UN = unitTS sgn GEOMSGN 

If overflow has taken place: (e.g. TS components alK 2“^*^) 

UN =(11, \ TSy, i TS^) (not meaningfiil) 

TS = |ts| sgn GEOMSGN (sine of angle, in MPAC) 

Return 

GETX (Entered with TS set to P, in MPAC) 

X2 = 3 (to be used as counter) Start of "Universal Variable 

Subroutine" 

Set bit 1(360SW) of FLAGWRD8 = 0 


more) 
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(scaled B5) 


TS^ = SNTH / (1 - CSTH) 

If overflow has taken place (e.g. TS^ magnitude^ 2^): 

If TS^< 0: 

Set bit 1(360SW) of FIAGMIDS = 1 
Proceed to "HJVRSBQN" 

PDWVAL = (TS^ - COGA) (scaled B5) 

If overflow has taken place (e.g. PDWVAL magnitiide ^ 2^): 

If PDWVAL < 0: 

Set bit 1(360SW) of FLAGWRD8 = 1 
Proceed to "INVRSEQN" 

Proceed to "WLOOP" 

WLOOP 

TS^ = PDWVAL^ (triple precision) 

TS 2 = RdA + TS^ ) 

If TS 2 < 0: 

Reset overflow Indicator 

Set bit 7(INFINFLG) of FLAGWRD8 = 1 

Return 

TS = PDWVAL + (square root rounded to double precision) 

If overflow has taken place: (e.g. TS magnitude ^2^) 

X2 = 3 
If TS < 0: 

Set bit 1(360SW) of FLAGWRD8 ^ 1 
Proceed to "INVRSEQN" 

If X2> 1: 

X2 = X2 - 1 

PDWVAL = TS J 

Proceed to "WLOOP" 
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TS = 1 / TS 


(scaled B2) 


If overflovr (e.g. TS magnitude-^ 2 ^): 
Reset overflow indicator 
Set bit 7(INFINFLG) of FLAGWRD8 
Return 

Proceed to "POLYCOEF" 

IMVRSFQN 

t SNTH 
^ (1 + CSTH - SNTH COGA) 

PDW3 = 1 

Proceed to "l/WLOOP" 
l/WLOOP 


= 1 


TS^ = PDW3' 


(triple precision) 


TS^ = RdA PDW2 (triple precision) 

TS^ = TS^ + TS2 
If TS^ < 0: 

Reset overflow indicator 

Set bit 7 (INFINFIjG) of FLAGWRD8 = 1 

Return 

TS = PDW3 + ^ TS^' 

If X2 > 1: 

X2 = X2 - 1 
PDW3 = TS 

Proceed to "l/WLOOP" 

TS = PDW2 / TS (scaled B2) 

Proceed to "POLYCOEF" 
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POLYCOEF 


If TS < 0: 

Reset overflow indicator 


Set bit 7(INFINFLG) of FLAGWRD8 = 1 


Return 


PDAVAL = TS 


PDB = RdA PDAVAL^ 

FCTN = K ^ + K ,, T PDB 
dbO dbl 


+ PDB 


PDXN = 16 PDAVAL FCTN 
If bit 1(360SW) of FLAGWRD8 = 1: 
If RdA < 0: 


+ 

''dbS 


+ K 


db4 


+ K 


db6 


PDB^ + 
PDB^ 


Reset overflow indicator 

Set bit 7(INFINFLG) of FL/^GWRDB - 1 


Return 

PDXN = /J^d? - PDXN 

XI = RdA PDXN^ 

X = PDXN x/rT 
PDXSQ = X^ 

KEPCl = yip'll' COGA 
KEPC2 = 1 - RdA 

Set bit 7(INFINFLG) of FLAGWRDB = 0 

Return (to routine calling "GETX", of course) 
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Quantities in Computations 

See also list of major variables and list of routines 


IdMU: Value of the reciprocal of fx. of primary body, selected from K 

using XI for indexing, scale factor B-34 (earth) or B-2S (moon)™^^^°i 
and stored in push-down list location 14D, program notation "1/mU" . 

IdROOTMU; Value of square root of IdMU of primary body, selected from 

^mutab indexing, scale factor B-17(earth) or B-14(moon), 

and stJred in push-down list location 18D, program notation "l/ROOTMU" . 

ImCSTH: Value of (l - GSTH), scale factor B2, computed in "LAMBERT". . 

ALPHA: Value of reciprocal of semi-major axis computed in "KEPLERN", scale 
factor B-22 (earth) or B-20 (moon), units of meters"^, stored in 
push-down list location 8D. 

COGA: Value of cotangent of flight path angle, scale factor B5 (measured 

from vertical) . "PARAM" computes it as angle between incoming position 
and velocity arguments, with overflow indicator set if an overflow 
here (corresponding to an angle less than about 1° 47.5', or of course 
closer to 180° than about 178° 12.5')* Notation also "INDEP" . 

COSF: Value of cosine of the true anomaly at the desired radius in 

"TIMERAD", scale factor Bl, stored in push-down list location 2Z|I). 

GSTH: Value of cosine of the true anomaly difference or of the angle 
between present and desired position vectors, scale factor Bl. 

GSTHmRHO: Value of difference between GSTH and PDLAMBDA computed in 
"LAMBERT", scale factor B7, program notation "GSTH-RHO" . 

GXI: Value of special transcendental function computed in "P ET, TIME" from 
a series expansion of XI, scale factor B4, not explicitly stored but 
shown for clarity. 

DGOGA: Ghange in the independent variable GOGA in Lambert iteration 
loop, scale factor B5. Program notation for the cell is also 
"DELINDEP", and it is stored in push-down list location 12D. 

PELT: Pifference between desired time and derived time in "KEPLOOP", scale 
factor B28, units centi-seconds. 

PELX: Pifference between new and old values of XKEP computed in "PXGOMP", 
scale factor B17 (earth) or Bl6 (moon). Updated in "KEPLOOP". 

EGG: Value of eccentricity computed in "APSIPES", scale factor B3. 

EPSILONL: Value of Lambert convergence limit computed in "LAMBERT", scale 
factor B28, units centi-seconds. 
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EPSILONT: Valiie of Kepler routine convergence limit computed in "DXCOMP", 
scale factor B2B, units centi-seconds. 

FCTN: Value of polynomial expansion function computed in "POLYCOEF", 
scale factor Bl. 

GEOMSGN: Single precision sign information for the sine of the true 
anomaly difference, used in "GEOM" (set to a positive value in 
"PARAM" before performing "GEOM"). It is a Lambert input. See SGNRDOT. 

ITERCTR: Single precision iteration counter used to protect Kepler and 
Lambert iterations from excessive loops, scale factor B14. It is 
initialized to 20 in "KEPLERN" and "LAMBERT". In push-down cell 22D. 


K^ Constant, program notation "Dl/1024", scale factor BIO, value 
1 X 2”I*^, corresponding to an equation value of 1. 


K^ : Constant, program notation "ONEBIT", scale factor B28, units 

centi-seconds. Value is 1 x 2“^^, corresponding to 1 centi-second. 

K^, /: Constant, program notation "Dl/32", scale factor B6, value 1 x 
2bb 2-5. Value corresponds to 2 x 2“°, T^iiere first term is equation 
value and second is scale factor. 


K_ . : Constant, program notation "2PISC", scale factor B6, value 

283 1853 X 2“°. Value corresponds to 2*|T, vd.th IT = 3.14159265. 

K, Constant, program notation "BEE19", scale factor BO, value 

^1 X 2~I9, giving the Lambert time error ratio (used in "LAMBERT" 
to multiply TDESIRED to get EPSILONL) . 

K, Constant, program notation "BEE22", scale factor BO, value 

1 X 2“^^, giving the Kepler time error ratio (used in "DXCOMP" 
to multiply TAUORB to get EPSILONT). 


K . (i = 0-9): Set of constants used in "DELTIME" to evaluate CXI, scale 
factor B(4-6i), program notation of K^q "DELTIME +29". Values are: 


i Stored Value True Value Infinite Series Value 


0 0.031250001 

1 - 0.166666719 

2 0.355555413 

3 -0.406347410 

4 0.288962094 

5 - 0.140117894 

6 O. 0492473 S 7 

7 -O.OI 3 O 8 I 923 

8 O.OO 28 O 6389 

9 - 0.000529414 


0.5 (in memory) 

- 0.041666680 
1.38888833E-3 
-2.48OI4777E-5 
2.75575727E-7 
-2.08791932E-9 
1. 14663 008E-11 
-4.75917586E-14 
I.59524745E-I6 
- 4 . 7021409 OE-I 9 


{1/21) ■■ 
-(1/4!) = 
( 1 / 6 !) = 
-( 1 / 8 !) = 
( 1 / 10 !)^ 
-( 1 / 12 ! > 
(1/14!)= 
-( 1 / 16 ! > 
(1/18!)= 
-( 1 / 20 !)= 


= 0.5 

=- 0.041666667 

= 1.38888889E-3 
=-2.48015873E-5 
= 2.75573192E-7 
=-2.08767570E-9 
= I. 14707456 E-II 
=-4.77947733E-1A 
= I. 5619207 OE -16 
=-4.11031762E-19 
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^coglom' program notation "COGLOLIM", scale factor B 5 , value 

- 0 . 999511597. Magnitude of true value corresponds to about 
31.9843711, so chosen that (l + COGA^), if COGA = K will 

be less than 2 -^^, thus avoiding overflow in the compufa?ion of 
RdA in "LAMBLOOP", where this term appears. 


K : Constant, program notation "COGUPLIM", scale factor B 5 , value 

g P™ 0.999511597, the same decimal value (with opposite sign) as 

K T . 
coglom 

(i = 0 - 6 ): Set of constants used in "POLYCOEF" to evaluate FCTN, 
scale factor (of all) Bl, program notation (of K,, „) "POLYCOEF + 10 ". 
Values are: 


i Stored Value True Value 


Infinite Series Value 


0 0.5 

1 -0.166666770 

2 0.100000392 

3 -O.O714OIO86 

4 0.055503292 

5 -0.047264098 

6 0.040694204 


1.0 

- 0.33333354 
0.200000784 
-O.1428O2172 
0.111006584 
-0.094528196 
0 . 0813 88408 


1.0 

-( 1 / 3 ) =-0.333333333 
( 1 / 5 ) = 0.2 

-(1/7) =-0.142857143 
( 1 / 9 ) = 0.111111111 
- ( 1/11 ) =-o . 090909091 
(1/13) = 0.076923076 


K : Dummy constant used in "KEPLOOP" to ijidicate a value of 

^ one least increment for DELX, program value 2 “^“, scale factor 
B 17 (earth) or Bl 6 (moon). Equation value corresponds to 2 ~^^ 
(earth) or 2 (moon). Could also be considered to be a program 
value of 2“^9 (depending on how rounding is interpreted), in which 
case requirement is for DELK to exceed the constant, and equation 
value wo\ald correspond to 2 “^ (earth) or 2 “^^(moon) . 


\ 50 sc’ ^O’^stan^ program notation "-5OSC", scale factor B 12 , value 
-50 X 2 ■^, corresponding to an equation value of -50. 

^mutab ~ O-I4 in steps of 2 ): Set of constants providing functions 
i of ^ for earth (i = 0 , 2 , 4 , 6 ) and moon (i = 8 , 10 , 12 , 14 ). The 
second, third, and fourth constant in each set is used to initialize 
the push-down list cells IdMU, ROOTMU, and IdROOTMU for earth (Xl = - 2 ) 
or moon (Xl = - 10 ) , as well as for references elsewhere . 


1 Stored Value Scaling 


Significance 


0 

3.986032EIO X 2~36 

B36 

2 

O.25O876O6E-IO X 2^^ 

B -34 

4 

I.99650495E5 X 2 -}^ 

B 18 

6 

O.5OO87529E-5 X 

B-17 

8 

4.902778E8 X 2“30 

B 30 

10 

O.203966E-8 X 2^° 

B -28 

12 

2.21422176E4 X 2 ~j 5 

BI5 

14 

O.45I62595E-4 X 2 ^^ 

B-14 


Earth l/f*' , cs /mr 
Earth 

Earth l/jf 

Q 2 

Moon f*' , wr /c 


Moon l/^^■ 

Moon 

Moon 


cs 


-/m-' 
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K . (i = 0-9): Set of constants used in "DELTIME" to evaliiate SpXIp, scale 
factor B(l-6i), program notation of K^q "DELTIME -+ 3". Values are: 


i Stored Value True Value 


Infinite Series Value 


0 0.083333334 

1 -0.266666684 

2 0. 406349155 

3 -0.361198675 

4 0.210153242 

5 -O.O86221951 

6 0.026268812 

7 -0.006163316 

8 0.001177342 

9 -0.000199055 


0.166666668 

-8.33333387E-3 

I.98412673E-4 

-2.7557272OE-6 

2.50522187E-8 

-I.606OO899E-IO 

7.6452305IE-13 

-2.8O275162E-15 

8.365518O6E-I8 

-2.20995444E-20 


(1/3! ) = 0.166666667 
-(1/5!) =-8.33333333E-3 
(1/7!) = I.98412698E-4 

-(1/9!) =-2.75573192E-6 
(1/11!)= 2.50521O84E-8 
- ( 1/13 ! )=-l . 6059043 SE-IO 
(1/15!)= 7.64716373E-13 
-(1/17! )=-2.81145725E-15 
(1/19!)= 8.22063525E-I8 
-(1/21! )=-1.95729411E-20 


KEPCl: Value of coefficient in Kepler equation used in "DELTIME", scale 
factor B17(earth) or Bl6(moon), stored in push-dovm list location 
34D and computed in "KEPLERN" and "POLYCOEF" . 

KEPC2: Value of coefficient in Kepler equation used in "DELTIME", scale 
factor B6, stored in push-dovm list location 36D and computed in 
"KEPLERN" and "POLYCOEF". 

KEPRTN: Single precision return address from "KEPLERN" routine (preset 
in "KEPPREP"). 

MAGVEC2: Magnitude of "second" vector input to "GEOM" : if entered from 
"PARAM", is velocity magnitude scaled B7 (earth) or B5 (moon), 
units meters/centi-second; if entered from "LAMBERT", is magnitude 
of R2VEC, scaled B29 (earth) or B27(moon), units meters. 

MAX: Value of maximum COGA computed in "LAMBERT"and subsequently updated, 
scale factor B5. Stored in push-dovm list location I4D, vrith 
program notation also "COGAMAX". 

MIN: Value of minimum allovrable COGA computed in "LAMBERT" and sub- 
sequently updated, scale factor B5. Stored in push-dovm list 
location 8D, vrith program notation also "COGAMIN". 

P: Value of ratio of semi-latus rectum to magnitude of present (Rl) 
position, scale factor B4, computed in "PARAM" and "LAMBLOOP" . 

PDAVAL: Value of temporary quantity "a" computed in "GETX" computation 
and loaded in "POLYCOEF", scale factor B2, loaded in push-dovm 
list location OD. 

PDB: Value of temporary quantity "b" computed in "POLYCOEF", scale factor 
BO, used as argiiment for computing FCTN. 
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PDECC: "A vector in direction of pericenter whose magnitude is equal 
to eccentricity," computed in "TIMERAD" initially with scale 
factor B7 and then rescaled to have scale factor B3 . Its unit 
is stored in push-down list location OD, scale factor Bl, while 
its magnitude is in 36 D, scale factor B3. 

PDLAMBDA: Value of ratio of magnitudes of RIVEC and R2VEC computed in 
"LAMBERT", scale factor B?, stored in push-down list location OD. 

PDUR2: Unit vector in direction of final radius computed in "TIMERAD", 
scale factor Bl, stored in push-down list location OD. 

PDW2: Value of temporary quantity "W 2 " computed in "INVRSEQN", scale 
factor B-1, stored in push-down list location OD. 

PDW 3 : Value of temporary quantity "w„" computed in "l/WLOOP", scale 
factor B4, stored in push-down list location 2 D. 

PDWVAL: Value of temporary quantity "w," computed in "WLOOP", scale 
factor B5, stored in push-down list location OD. 

PDXN: Value of temporary quantity computed in "POLYCOEF", scale 

factor B 6 , stored in push-down list location OD. The factor of 
"I 6 " in the equation comes from this scale factor: without 
the "I 6 ", scale factor would be B2 (scale of B 6 required for 
subsequent computations, of course). 

PDXSQ: Value of the square of the quantity "X", stored in push-down 
list location OD by "KEPLOOP" and "POLYCOEF", and used in 
"DELTIME" . If X already normalized, scale factor B34( earth) or 
B32(moon) : scaling information also contained in XI, which is 
used in "DELTIME" to achieve proper scaling of end results (not 
shown in programmed equations). 

— rect' Orbital Integration. 

Rl: Magnitude of "present" position vector (of R ^ "KEPLERN" and 
TS , in "GEOM"), scale factor B29(earth_) or^§§7 (moon), units 
meters. Stored in push-down list location 32D. 

RIVEC: Initial position vector used as input to Lambert routine (for 
point of maneuver initiation), scale factor B29(earth) or B27 
(moon), units meters. 

R2: Magnitiade of "desired" or final position vector, scale factor B 2 y 
(earth) or B27 (moon), units meters, loaded e.g. at start of 
"LAMENTER", where scaling information also in XI (not shown) . 

R2VEC: Desired terminal (i.e. "target") position vector used as input 
to Lambert routine, scale factor B29( earth) or B27(moon), units 
meters . 
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RCV: See Orbital Integration. Low 5 bits 0 magnitijde by "KEPCONVG" . 

RdA: Value of ratio of "present" (Rl) position vector magnitude to semi- 
major axis, scale factor B6, computed in "LA.MBLOOP" and "PARAM" . 
Program notation is "RIA" . 

RDESIRED: Value of desired final radius used as input to "TIMEHAD" routine, 
scale factor B29(earth) or B27(moon), units meters. 

ROOTMU: Value of square root of jiv of primary body, selected from 

using XI for Indexing, scale factor BlB(earth) or B15(moon), i 

stored in push-down list location l6D. 

RTNCONC: Single precision cell used to retain return address information 
from several conic routines . Program notations are "RTNAPSE" , 
"RTNLAMB", "RTNTR", and "RTNTT" . 

RTNPRM: Single precision cell used to retain return address information 
from "PARAM". 

RVEC: Vector position input to several of the conic routines, scale 
factor B29( earth) or B27(moon), units meters. 

SGNRDOT: Single precision cell used double precision in "TIMERAD" to 
determine required sign of radial velocity at desired radius: if 
most significant half is non-zero, then least significant half 
would have no effect. 

SNTH: Value of sine of true anomaly difference or of the angle between 
present and desired position vectors, scale factor Bl. 

SpXIp: Value of special transcendental function computed in "DELTIME" 
from a series expansion of XI, scale factor Bl, program notation 
"S(XI)", stored in push-down list location 26D. 

T: Value of time computed in "DELTIME" to go from present position to 
"desired" position, scale factor B28, units centi-seconds, stored 
in push-down list location 30D. It contains the result from 
the performance of "TIMERAD" or "TIMETHET" routines. Is also "DEP" . 

T : See Orbital Integration. It is set in "KEPCONVG" to the value of T 
® (less than one period). 

TAUORB: See Orbital Integration. It is reduced in "PERIODCH" so as to be 
less than one period (for forward or backward integration). 
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TDESIRED: Value of desired transfer time (between RIVEC and R2VEC)used 
as input to "LAMBERT", scale factor B28, units centi-seconds . 

TERRLAMB: Difference between desired and derived transfer time computed 
in "LAMBLOOP", scale factor B28, imits centi-seconds; program 
notation also "DELDEP". 

TPREV: Previous value of T in "LAMBLOOP", scale factor B28, units 
centi-seconds; program notation also "DEPREV". 

TWEEKIT: Single precision q;iantity used to indicate required amount of 
modification on first iteration in "ITERATOR", scale factor BO, 
stored in push-down list location 4OD. It is initialized to the 
appropriate value in "LAMBERT". 

U2: Value of the unit of the vector whose magnitude is in MAGVEC2, 
scale factor Bl, computed in "GEOM" . 


UN: Unit normal to the two vectors used as input to "GEOM", scale factor 
Bl. If overflow is encountered in forming the unit vector, then 
the result is not meaningfvil. It can also be an input to "LAMBERT". 

URl: Value of the unit of the vector whose magnitude is in Rl, scale 
factor Bl, computed in "GEOM" . 


URRECT: Value of unit^^^^ computed in "KEPLERN", scale factor Bl. 

V^ect* Orbital Integration. 

target' Rendezvous Computations. 

VCV: See Orbital Integration. Low 8 bits have zero magnitude when 
computed in "KEPCONVG" . 

VTARGTAG: See Rendezvous Computations. 

WEC: Vector velocity input to several of the conic routines, scale 

factor B7 (earth) or B5 (moon), units meters/centi-second. Lambert output. 

X: Storage for updated values of XKEP information in "KEPLOOP", scale 
factor B17(earth) or Bl6(moon) , stored in push-down, list location 
20D. Computed in "KEPLOOP" and "POLYCOEF" . 
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XI: Value of square of eccentric anomaly difference for ellipse, or 

negative of square of its hyperbolic analog for hyperbola, scaled 
B6. It is used as the independent variable in the "DELTIME" 
expansions, and is computed in "KEPLOOP" and "POLYCOEF", and 
stored in push-dovm list location 24D. 

XKEP: See Orbital Integration. Program notation also "XPREV" . 

XKEPNEW: See Orbital Integration. 

XMAX: Value of upper bo\jnd on X computed in "KEPLERN", scale factor 
B17( earth) or Bl6(moon), stored in push-dovm list location lOD. 

XMIN: Value of lower bound on X computed in "PERIODCH", scale factor 
B17(earth) or Bl6(moon), stored in push-down list location 12D. 

XSQCpXIp: Value of X^ times CXI computed in "DELTIME", scale factor 
B33(earth) or B3l(moon), program notation "XSQC(Xl)", stored in 
push-down list location 28D. 
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Coordinate Transformations 


CALCGTA 

TS = unit 2 > x) Equivalent to unitY 

SINTH = TS^ 

COSTH - TS^ 

Perform "ARCTRIG” 

IGC = THETA 
SINTH = 

COSTH = TS^ - X^^^^TS^ 

Perform "ARCTRIG" 

MGC = THETA 
COSTH = TS • ^ 

SINTH = TS • Y;^^ 

Perform "ARCTRIG" 

OGC = THETA 
Return 

ARCTRIG Routine entered with SINTH and COSTH, scale factor B2. Return 
is with THETA, scale factor BO, units revolutions, in range 
± 5 (i.e. + 180°). 

If |SINTh( - » 0: 

THETA =(cos"l COSTh) sgn SINTH 

Return 

THETA = sin“l SINTH 
If COSTH 0, Return 

THETA = q sgn SINTH - THETA (the ^ correopondo to 180°) 

Return 
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CALCGA 


TS = unit(^^ 


Y 

“sm 


) 


COSTH = TS • ^ 

- -dc 

SINTH = TS • Y, 

- -dc 

Perform "ARCTRIG" 

OGC = THETA 

COSTH = (TS 

SINTH = • Y 

-dc -sm 

Perform "ARCTRIG" 

MGC = THETA 

If ImGcI - ^0: 


Y 

— sm 


Perform "ALARM" (pattern OAOlg) 

Set bit 14(GL0KFAIL) of FLAGWRD3 = 1 

COSTH = Z • TS 
— sm — 

SINTH = X • TS 
— sm — 

Perform "ARCTRIG" 

IGC = THETA 

THETAD = (OGCj IGC, MIC) converted to twos complement single 

precision, scale factor B-1 revolutions 


Return 


AXISGEN Entered with stars "A" and "B" in the "C" and "D" systems 

STV = unit(STARAC ■>'«• STARBC) 

STW = STARAC STV 

STV' = unit(STARAD STARBD) 

STW' = STARAD STV' 
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+ STV STV + STW' STW) 

X ~ X — 

+ STV STV + STW' STW) 

y “ 7 

+ STV STV + STW' STW) 

Z “ Z — 

(for "C" system in reference 
coordinates and "D" system in 
IMU coordinates, Xj is X in 
reference coordinates) 


Rettirn 

CDUTRIG 

CDUSPOT = CDU (most significant halves, in y,z,x order) 

CDUSPOT = CDUSPOT, converted to double precision ones complement, 

BO revolutions 

(COSCDUY, COSCDUZ, COSCDUX) = cos CDUSPOT 
(SIWCDUI, SINCDUZ, SINCDUX) = sin CDUSPOT 
Return 

QUICTRIG (Entered from "CLOCKJOB" with CDUSPOT set) 

Inhibit interrupts 

(SINCDUY, SINCDUZ, SINCDUX) = sin CDUSPOT , rescaled to scale 

factor B1 

(COSCDUI, COSCDUZ, COSCDUX) = cos CDUSPOT , rescaled to scale 

"P ""P factor B1 

Release Interrupts 
Return 


X, = unit (STARAD STARAC 

“UC X - 

Y, = unit (STARAD STARAC 

-idc y “ 

Z, = unit (STARAD STARAC 

“dc z - 

^TARA^ = 
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TRG-^^NBSM 


Entered vd.th TS the vector to be rotated thru o,m, i 


Perform "CDUTRIG" (starting at second line) 

TS^ = TS COSCDUX - TS SINCDUX (tag to start here is ) 

2 y z 

TS^ = TS COSCDUX + TS SINCDUX 

1 z j 

TS = (TS^, TS^, TS^) 

TS^ = TS COSCDUZ - TS SINCDUZ 

2 X y 

TS, = TS COSCDUZ + TS SINCDUZ 

1 y X 

TS = (TS 2 , TS^, TS^) 

TS^ = TS COSCDUY - TS SINCDUY 

2 z X 

TS, = TS COSCDUY + TS SINCDUY 
lx z 

TS = (TS^, TSy, TS^) 

Return 


~»'SMNB'''~ EntQ’ed vrith TS the vector to be rotated thru i,m. 


TS2 

= TS 

z 

COSCDUY + 

TS 

X 

SINCDUY 

TS^ 

II 

COSCDUY - 

TS 

z 

SINCDUY 


TS = 

= (TS^, TSy, TS^) 



TS„ 

= TS COSCDUZ + 

TS 

SINCDUZ 

2 

X 

y 


TS, 

= TS COSCDUZ - 

TS 

SINCDUZ 

1 

y 

X 


TS = 

= (TS 2 , TS^, TS^) 



TS„ 

= TS COSCDUX + 

TS 

SINCDUX 

2 

y 

z 


TS, 

= TS COSCDUX - 

TS 

SINCDUX 

1 

z 

y 


TS = 

- (TS^, TS^, TS^) 



Return 




o 


SMCDURES 

DCDU 

X 


DTHETASM COSCDUY - DTHETASM SINCDUY 
X z 

COSCDUZ 
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DCDU = DTHETASM - DCDU SINCDUZ 
y y X 

DCDU = DTHETASM SINCDUY + DTHETASM COSCDUY 
Z X z 

Return 

CALCSMSC 

= (COSCDUY COSCDUZ, SINCDUZ, - SINCDUY COSCDUZ) 

Z^^ = (COSCDUY SINCDUZ SINCDUX + SINCDUY COSCDUX, 

- COSCDUZ SINCDUX, 

COSCDUY COSCDUX - SINCDUY SINCDUZ SINCDUX) 

-dc -lie 

Return 

SXTNB 

TS^^ = ’ converted to ones complement double precision 

^ scale factor B -2 revolutions (i.e. CDUT) 

TSj^ = TSj^ + K^^odgm^ rescaled to BO revolutions 

TS2 = ^^ 3 -Xl^sp’ converted to ones complement double precision 
scale factor BO revolutions (i.e. CDUS) 

TS = (sin TS^ cos TS2, sin TS^ sin TS2, cos TS^ ) 

TS = [nBINB^ TS 

Return (TS in 32D) 

CALCSXA 

TS = STAR 

Perform "-s^SMNB^^-" 

STAR = ^2NBiL] TS 

X , = units 

“nbi “ 

Y , T = unitY 
-nbl — 

Z , T = unitZ 
-nbl - 

Proceed to "SXTANGl" 
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SXTANG 


T% = t'®2NBg 

TS^ = fNBZNBg (X^,^y, Z^,_y) 

T% = [»B2NBg 


^bl 




Inbl== 



’^3,y 

-nbl "" 

USl.z. 

1^2, 

’’b,. 

Proceed 

to "SXTANGl" 



SXTANGl 

TS^ = unit(Z^^2_ STAR) 

If overflow has taken place (i.e. unit vector poorly defined): 


SAC - K2Y0dg 


PAG = K 


20dgs 


Set bit 7(CULTFUG) of FLAGWRD3 = 0 


Return 


SINTH = - TS ^ • X^^i 
COSTH = TS^ • Y^bl 
Perform "ARCTRIG" 

SAC = THETA, rescaled to B-1 revolutions single precision twos 
complement 

TS = cos-1 (STAR • ^^^) 

If TS >y 0: (as it should be, i.e. in range 0 - 180 ) 

If TS < 90°: 

TS - TS, rescaled to B-2 revoluLions 
TS - TS - K2Qdgsin 

PAG = TS, rescaled to B-3 revolutions single precision 
twos complement 

Set bit 7(CULTFLAG) of FLAGWRD3 = 0 
Return 
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Set bit 7(CULTFUG) of FLAGWHD3 = 1 
Return 


EARROTl 

%es ^nitw 

^nm ^es ' ^nitw 
Proceed to "EARR0T2" 

EARR0T2 

TS = DTEAROT/Kidvd.e 
If |TS|^1: 

DTEAROT = DTEAROT - sgn DTEAROT 

Proceed to "EARR0T2" 

R^=unit('R^. + (costs - D + (sin TS) J 

Return 

LSPOS Entered vrith TS = GET of information, B28 centi-seconds, from 

"ACCOMP", "S50", and "UTAREAl" 

Use XI for program control purposes 

TIMEARG = T , + TS - C, . , modulo 2^^ centi-seconds (7 days, 18 hr, 

eph tunemo ^4 non, 48.64 sec) 

TS = C TIMEARG 

omegaes 

TS, = f unit (unite C ) C ) sin TS + C cos TS 

—1 V -reso — veso -reso/ — reso 

(TSj^ B 38 meters, in pd 2D) 

Proceed to third line of "LUNPOS" 

LUNPOS Entered with TS = GET of information, B28 centi-seconds, 

from "CHKSWTCH", "POINTAXS", 

Use XI for program control purposes "SBANDANT" 

TIMEARG = T , + TS - C , . , modulo 2^^ centi-seconds 

eph tunemo ' 

TS = C + C , ^ TIMEARG + C , „ TIMEARG^ + C TIMEARG^ 

- — vcem54 — vcem48 — vcem42 — vcem36 

+ C „„ TIMEARG^ + C TIMEARG^ + C 

— vcem30 — vcem24 — vcemlS TIMEARG 

+ C TIMEARG*^ + C TIMEARG^ + C „ TIMEARG^ 

“vceml2 — veemOo — veemOO 
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Return 


(TS in MPAC, B29 meters, moon's position) 


LUNVEL Entered with TS = GET of information, B28 centi-seconds, 

from "ORIGCHNG" 


Use XI for program control purposes 


,26 


TIMEARG = T , + TS - C , . , modulo 2 centi-seconds 

eph timemo' 

TS= 1 C + 2C .^TIMEARG +3C TIMEARG^ + 

- -vcem 48 -vcem 42 -vcem 36 


AC TIMEARG-^ + 5 C TIMEARG^ + 6 C TIMEARG^ + 

^cem 30 -vcem 2 A -vcemlS 


,3 

,6 


7 Svcemia « Svcenrt ’ SvcemOO 


Ret\irn 


(TS in MPAC, B7 meters/centi-second, moon's velocity) 


LAT-LONG 

ALPHAM = jALPHAV | 

TS^ = ALPHAV 

TS 2 = TS (time argument when enter) 
TS = 0 


If bit 12(LUNLATL0) of FLAGWRD3 = 1: 

TS = 5 (i.e. non-zero quantity, formed as cos 0°, with 

scale factor Bl) 

Perform "R-TO-RP" 


ALPHAV = unitTS 

= S2a2 

If bit 12(LUNLATL0) of FLAGWRD 3 


= 1 : 


TS = K 


Ibl 


GAMRP = TS 


Perform "SETRE" 

COSTH = GAMRP V ALPHAV ^ + ALPHAV ^ 

X y 

SINTH = ALPHAV 

z 

Perform "ARCTAN" 


LAT = THETA 
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COSTH = ALPHAV 

X. 

SINTH == ALPHAV 

y 

Perform "ARCTAN" 

LONG = THETA 

ALT = ALPHAM - ERADM 


Return 

lALOTORV 

TS 2 = TS (time argument when enter) 

- K^2a2 

If bit 12(LUNLATL0) of FLAGWRD3 = 1: 

^ ^Ibl 

GAMRP = TS (enter here from "Pll" for ^EFSMM^ ) 

ALPHAV = unit(cos LONG cos LAT, sin LONG cos LAT, GAMRP sin LAT) 
TS^ = ALPHAV 
Perform "SETRE" 

TS = 0 

If bit 12(LUNLATL0) of FLAGWRD3 = I: 

TS = i (i.e. non-zero quantity, fomed as cos 0°, with scale 
factor Bl) 

Perform "RP-TO-R" (TS^ still set from entrance to "LALOTORV") 
ALPHAV = TS 

ALPHAV = (ERADM + ALT) ALPHAV 
Return 


GETERAD 


ERADM = 


^b2xsc 


I - K (1 - ALPHAV ) 
ee z 


Return 


J 
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SETRE 


If bit 12(LUNLATL0) of FIAGWRD 3 = 0: 

ERADM = K ^ 
erad 

If bit 13(EEIADC0MP) of FLAGWRDl = 1: 

Perform "GETERAD" (writes over ERADM) 

Return 

EMDM = (i.e. LUNLATLO = 1, meaning lunar) 

If bit 13(ERADC0MP) of FLAGWRDl = 0: 

ERADM = |rLS I 
Return 
ARCTAN 

TS = SINTH^ + COSTH^ 

If TS = 0: 

THETA = 0 
Return 

TS = SINTH / n/TS’ 

If |ts|:^i: 

THETA = i sgn SINTH (the ^ is 90°) 

Return 

THETA = sin"^ TS 
If COSTH » 0, Retiirn 

THETA = ^ sgn THETA - THETA (the 5 is 180°) (0 considered 

negative ) 

Return 
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RP-TO-R 


Entered with TS, in OD to be rotated, TS- in 6D for the 
time, and TS inTiPAC for earth (O) or moon O) 

If = 0: (means earth) 

Perform "EARTHMX" 

TS = (WtRE^ 5O4LPL 

Skip next 2 lines 


Perform "MOONMX" 


(i.e. original TS^^ ^ O) 


TS = Ccn, 

- -5041m 

TS = (TS^ + TS * TS^) [mMATRI]^ 


Return 


R-TO-RP Entered v/ith same calling argimients as "RP-TO-R" 

If TS = 0: 
sp 

Perform "EARTHMX" 

TS = 5O4LPL 
Skip next 2 lines 

Perform "MOONMX" (i.e. original TS ^ ^ O) 

’■5 = %041m 

TS = [^TRI]^ (TS^ - TS * TS^) 

Return 


EARTHMX 


AZ == K 


(T 

wearth eph 


[mTRli^ 
504LPL = (- C 


+ TSp) + modulo 36O (time argviment modulo 

33 

2 cs, or about 994*2 days) 


cos AZ 
- sin AZ 
0 


unitw ’ 
7 


unitw ^ 

X 


azo 

sin AZ 
cos AZ 
0 

0 ) 


Return 
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MOONMX 


B7AL = K^, ^ (T ^ + TS„) + ^ (all angles modulo 360°, but 

Ddot eph 2 bsubo modulo 2^3 cs, or/*994*2 

days) 


FVAL 


K., , (T , + TS^) + K„ , 
fdot eph 2 fsubo 


OMGIVAL = K , , , (T , + TS„) + K 

noddot eph 2 nodio 

AVECTO = (cos OMGIVAL, sin OMGIVAL cos BVAL, sin OMGIVAL sin BVAL) 
BVECTR = (- sin OMGIVAL, cos OMGIVAL cos BVAL, cos OMGIVAL sin BVAL) 


CVECIR = (0, - sin BVAL, cos BVAL) 

MMATRI^= K . , BVECTR + K . CVECTR 
sini — cosi ~ 

BVECTR = K . BVECTR - K . . CVECTR 
- cosi - sini — 

MMATRIX^ = AVECm sin FVAL - BVECTR cos FVAL 
MMATRI^ =-AVECTR cos FVAL - BVECTR sin FVAL 


[MMATRli^ 


MMATRD^ 

MMATRIX^ 

MMATRIX^ 


Return 
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Quantities in Computations 

See also list of major variables and list of routines 


504LPL: Vector ’’accounting for the precession and nutation of the polar 
axis (the deviation of the true pole from the mean pole)," scale 
factor BO, units radians. 

ALPHAM: See Orbital Integration. 

ALPHAV: Communication cell vdth coordinate transformation routines. If 

used with "GETERAD", contains a unit vector of position, scale factor 
Bl; for latitude -longitude routines, contains position vector with 
scale factor B29, units meters, either when enter or when exit. 

ALT: Value of altit\ade above appropriate base value, scale factor B29, 
units meters. 

AVECTR: Temporary vector used in "MOONMX" routine, scale factor Bl, stored 
in push-down list location 20D. 

AZ: Value of rotation angle about Z axis, modiilo 1 revolution, computed 
in "EARTHMX", Scale factor BO, units revolutions, stored in 
push-down list location I8D (with notation "504AZ"). 

BVAL: Value of the obliquity (angle between mean earth equatorial plane 
and the plane of the ecliptic) computed in "MOONMX" routine, scale 
factor BO, units revolutions, stored temporarily in push-down list. 

Its sine is stored in 34D and its cosine in 32D, both with scale factor 
Bl, notations "SOB" and "COB" respectively. 

BVECTR: Temporary vector used in "MOONMX" routine , scale factor Bl, stored 
in push-down list location 26D. 

C , : Erasable memory vector constant, scale factor BO, used to 
^^^l^^correct for deviations because of physical libration" of moon. 

Program notation is "5O4LM", and units radians. 

C : Erasable memory constant, program notation "OMEGAES", scale factor 

omegaeSg_2^^ units revolutions/csec: gives the "angular velocity of the 

Sreso ^tUnemo" ' 

C : Erasable memory vector constant, scale factor B38, units meters, 
program notation "RESO" . It gives the position vector of the sun 
relative to the earth at time 

C. . : Erasable memory triple precision scalar constant, scalo factor 

tunemog^g^ units centi-seconds, program notation "TIMEMO". It gives 
the elapsed time between the beginning of the AGO year (cf. K^^^) 
and when the lunar and solar location-determining erasable 
memory constants are valid. 

C .j. : See General Program Control. 

— unitw 
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^cemOO* memoxy vector constant, program notation "VECOEM", 

scale factor B-203, units meters/centi-second^, used as the 
coefficient of the highest order term in computing l\mar position 
or velocity. Could alternatively be considered to be in units 
of "quasi-weeks" (of centi-seconds each, see TIMEARC), in which 
case scale factor is B3I, units meters/quweeks^. 

^cem06’ memory vector constant, program notation "VECOEM +6", 

scale factor B-177j units meters/centi-second°, used as the 
coefficient of the next highest order term in computing lunar 
position or velocity. Coxild also be considered B31 in units 
of meters/quweeks° (see 

C /. (i = 2-7): Erasable memory vector constants, program notation 

— vcem +6i", used as coefficients for subsequent terms of 

lunar position or velocity computations. Note that the coefficients 
are stored in memory with the highest-order one first . Scale 
factors B-(203 - 26i), units meteps/centi-second^”^ (or scale 
factor B3I, units meters/quweeks^'”^) . 

C .g: Erasable memory vector constant, program notation "VECOEM +4S", 
scale factor B5, units meters/centi-second, used as the first- 
order ("bias") term for l\mar velocity. Exponent factors are 
scaled Bk when used for velocity multiplications, giving a "raw" 
velocity scaling of B9, which at the end is shifted left 2 places 
to give B7. Could also be considered scale factor B31, units 
meters/ quweek . 

C c, : Erasable memory vector constant, program notation "VECOEM +54", 
^scale factor B3I, units meters, used as the first-order ("bias") 
term for lunar position. The "raw" position scaling is B3i, which 
at the end is shifted left 2 places to give B29 for output. 

^eso' roemory vector constant, program notation "VESO", scale 

factor B9, units meters/centi-second. It gives the velocity vector 

of the sun relative to the earth at time C, . . Used also in P23 . 

timemo 

CDUSPOT: Communication cells with coordinate transformation routines 
to specify (generally) the CDU angle infoimation to be employed. 

When enter the routine, only the most significant half of each 
double precision word is used, considered to have a scale factor 
B-1, units revolutions in twos complement. Conventional order of 
storage of CDU angle information in CDUSPOT is y,z,x (i.e. inner, 
middle, outer respectively). 

COSCDUX, COSCDUY, COSCDUZ: Value of cosines of information in CDUSPOT, 
scale factor B1 (in the same y,z,x order as CDUSPOT). If perform 
"QUICTRICt", a single-precision cosine routine is used, while if 
perform "CDUTRIG" the double precision interpretive routine is 
employed (taking about ten times more execution time). Updated 
once a second while "CLOCKJOB" is running (via "QUICTRIG" entrance), 
which includes the times that the TVC DAP is on. 

COSTH: Value of argument cosine for "ARCTRIG", stored in push-down list 
location 16D, scale factor B2. Also used as communication cell 
with "ARCTAN", in which case only requirement is that scaling be 
the same as for SINTH to that routine. 
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CVECTO: Temporary vector used in "MOONMX" routine, scale factor Bl, 
stored in push-dovm list location 8D. 

DCDU: Incremental change in CDU angle due to DTHETASM (computed in 
"SMCDURES"), same scaling and units as DTHETASM. 

DTEAROT: Value of earth rotation tajne for use in "EARR0T2", scale factor 
B28, units centi-seconds. 

DTHETASM: Communication cell vd.th "SMCDURES" containing incremental 

angle changes measured about stable member axes. Scaling of DCDU 
(and units) will be the same as the scaling of this quantity: 
when entered from "CRS61.1", scale factor is B-3, with units of 
revolutions/de ci-se cond . 

DVECIR: Temporary vector used in "MOONMX" routine, scale factor Bl, 
stored in push-down list location 8D. 

ERADM: Value of radius of earth (from Fischer model or pad base) or 
moon (of average valiie or landing site base), scale factor B29, 
units meters. 

FVAL: Value of angle from the mean ascending node of the moon's orbit 
to the mean moon computed in "MOONMX" routine, scale factor BO, 
units revolutions, stored temporarily originally in push-down 
list location 30D, then moved to 6D (where has notation "504 F"). 

GAMRP: Value of square of ratio of polar to equatorial model radius 

(1.0 for moon), scale factor Bl, stored in push-down list location 
8D. 

IGC: Value of inner gimbal angle, ocalc factor BO, units revolutions. 

The inner gimbal angle is identified with the Y axis. 

'^^Ibl' ^"^^stant, program notation "IBl", scale factor Bl, value 1 x 2“^, 
corresponding to an equation value of 1.0 (the ratio of polar to 
equatorial model radius information for the moon) . 

, , : Constant, program notation "l/WIE", scale factor B28, units 
centi-seconds. Value is 86164 IO x 2 ~^°, corresponding to 
86164.10 seconds, the earth's rotation period (rounded to the 
nearest centi-second) . Corresponding angular velocity to this 
time is about 7*292115054E-5 rad/sec (cf. * 

^lOdera’ precision constant, program notation "10DEGS-", scale 

“factor B-2, units revolutions. Value is 36 OO x 2“^, corresponding 
to about 19 . 7754 °* Notation arises from the fact that would be 
about 10° for the standard trunnion angle scaling of B-3 revolutions. 

^20dgs’ Constant, program notation "20DEGS-", scale factor B-3, units 
revolutions. Value is -7199 x 2“^, corresponding to -19*7754° 
(since used as if it was twos complement,- equivalent to -7200 x 
2“^ in ones complement). 
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: Constant, program notation "20DEG-", scale factor B-2, units 
^ gsm j^g-yolutions . Valiie is 36OO x 2“^^, corresponding to about 

19.7754°. 

^07nri ■ Constant, program notation "270DEG", scale factor B-1, units 
' ® revolutions. Value is 60000g OOOOOg, corresponding to -90° 

in twos complement (or + 270°) . 


K 


: Constant, program notation " 
meters . Value is I738O9O x 2 
radius of 1738.09 km. 



, scale factor B29, units 
corresponding to the mean lunar 


K : Constant, program notation "AZO", scale factor BO, units revolutions. 

^° Value is 7.733314844E-1 revolutions, corresponding to 4.85898502016 
X (1/2 IT), where first term is value in radians and second converts 
to revolutions. It is "the angle between the X-axis of the Basic 
Reference Coordinate System and the X-axis of the Earth-fixed Coordinate 
System (intersection of Greenwich meridian and equatorial plane of 
the earth)" at the beginning of the AGC year (i.e. when ^ ^ '^now 


K, ^ Constant, program notation "B2/A2", scale factor Bl, value p 
^ 0.9933064884 X 2“^. Value corresponds to (6356.784/6378.166) x 

2“^, where terms in parentheses are the Fischer polar and equatorial 
earth radius values expressed in kilometers, to nearest meter. 


K, p : Constant, program notation "B2XSC", scale factor 
D^ixsc p, ni7Qj. cnArto ( knak 


. X w . ^ 851, value 

0.0179450689. Value corresponds to (6356.78483)^ x 2"^^, where 
first term is Fischer polar radius in meters (squared), and 
second is scale factor. 


K^dot’ Constant, program notation "BOOT", scale factor B-28, units ^ 
revolutions/centi-second. Nominal value is -1.14553139QE-16 x 2^“, 
corresponding to -7 . 197585996778-14 x (l/2r) x 10-2 ^ 2^8, where 
first term is rate of change of BVAL in radians/sec, second converts 
to revolutions, third converts to centi-seconds, and fourth is 
scale factor. Memory value is - 2“^^ (-2.980232238778-8). 

^bsubo' program notation "BSUBO", scale factor BO, units 

revolutions. Value is 6.511941688E-2, corresponding to 
4.091573633368-1 X (I/21J-), where first term is value in radians 
and second converts to revolutions. 

K Constant, program notation "COSI", scale factor Bl, value 

cosi 9 , 996/^iy320E-l X 2“^. Value corresponds approximately to 

cosine 1° 32' 1.5" (5521.5 arc seconds), the "angle between the 
mean lunar equatorial plane and the plane of the ecliptic." 
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K : Constant, program notation "EE' 


ee 


scale factor BO, value 
6 . 6935 II 6 E- 3 . Value corresponds to (l - K, , i.e. the 
square of Fischer model eccentricity (for ^2a2 


K Constant, program notation "ERAD", scale factor B29, units 

meters. Value is 6,373,33® x , corresponding to 6,373,33® 
meters (same as see Burn Control). 

K„. , : Constant, program notation "FDOT", scale factor B-27, units 
revolutions/centi-second. Value is 4.253263471E-9 x 2^^^, 
corresponding to 2. 6724042 54®E-6 x (l/2Tr) x 10"^ x 2^', where 
first term is rate of change of FVAL in radians/sec, second converts 
to revolutions, third converts to centi-seconds, and fourth is scale 
factor. 


Kf , : Constant, program notation "FSUBO", scale factor BO, units 

® revolutions. Value is 6.55273775E-1, corresponding to 

4.11720655556 X (l/ 2 'n"), where first term is value in radians 
and second converts to revolutions. 


K Constant, program notation "NODDOT", scale factor B-2B, units 

revolutions/centi-second. Value is -1.703706128E-11 x 2^®, 
corresponding to -I.O 7047 OI 3 IE -8 x (l/27r) x 10 “^ x 2^°, where 
first term is rate of change of OMGIVAL in radians/second, second 
converts to revolutions, third converts to centi-seconds, and 
fourth is scale factor. 

^nodio" program notation "NODIO", scale factor BO, units 

revolutions. Value is 8.7®®3086E-1, corresponding to 
5.521857147 X ( 1 / 2 TT), where first term is value in radians and 
second converts to revolutions. 

K //: Constant, program notation ".I 66 ...", scale factor BO, units 
^ revolutions. Value is 0 . I 666666667 , corresponding to 60 degrees. 

K , , : Constant, program notation "QTSN45", scale factor B2. Value is 

0 . 1768 , corresponding to 0.7072 x 2 “^, where first term is sin 45 ° 
and second is scale factor. 


K . Constant, program notation "SINI", scale factor Bl, value 
sini 2 . 67657905 OE -2 X 2“^, corresponding to the sine of the angle 
whose cosine is K 

cosi 

K , : Constant, program notation "WEARTH", scale factor B-23, units 
revolutions/centi-second. Value is I.I 6 O 57617 IE -7 So 2^^, 
corresponding to 7 . 2921151^j667E-5 x (l/2ir) x 10-2 x 2 ^^, where 
first term is rotation rate of earth in radians/second, second 
converts to revolutions, third converts to centi-seconds, and 
fourth is scale factor. Octal value is 371160 326310 , corres- 
ponding to about 0 . 9735618569 , or a rate of about 7.2921151577E-5 
rad/sec (a period of about 86l64.09®8 seconds). 
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LAT: Value of vehicle latitiide, scale factor BO, units revolutions, positive 
for northerly latitudes. Notation also "LANDLAT" . If earth, geodetic. 


LONG: Value of vehicle longitude, scale factor BO, units revolutions, 
positive for easterly longitudes. 


MGC: Value of middle gimbal angle, scale factor BO, \inits revolutions. 
The middle gimbal angle is identified vdth the Z axis. 


[mMATRIxJ : Value of "modification matrix" for earth (computed in 

"EARTHMX") or moon (computed in "MOONMX"), scale factor of elements 
Bl, stored in push-down list location 20D. 


®BlNB2j : Matrix of constants, program notation "NBINB2", scale factor 
Bl. True values of elements (which are multiplied by 2~^ for scale 
factor purposes) are: 


' 0.843175692 0 

0 1 

-0.5376381241 0 


O.537638I24I 

0 

0.843175692 


Numerical values in first row correspond to the cosine and sine 

of 32° 3I' 23.19". 


|NB2NB]^ : Matrix of constants, program notation "NB2NB1", scale factor 
Bl. True values of elements (which are multiplied by 2“1 for scale 
factor purposes) are: 


0.843175692 0 


-0.5376381241 


0 1 


0 


0.537 63 8124 1 0 


0.843175692 


Matrix is the transpose of 



OGC: Value of outer gimbal angle, scale factor BO, units revolutions. 

The outer gimbal angle is identified with the X axis. The quantity 
is stored such that 0G£ = (OGC, IGC, MGC). 

OMGIVAL: Value of the "longitude of the node of the moon's orbit", 
scale factor BO, \anits revolutions, computed in "MOONMX". 

Value is stored temporarily in push-down list location 8D, 


PAG: Required trunnion angle to have the star line-of-sight lie along 
STAR, scale factor B-3, units revolutions (double precision) . 

R, : Target vector output of ''EARR0T2", scale factor Bl (a unit vector). 

R, : Value of easterly component of scale factor Bl (dimensionless), 

computed in ’^EARROTl*' . 

R, . : Communication cell with earth rotation routine, containing initial 
^ value of target vector (at DTEAROT = O), scale factor Bl (a unit 
vector) . 
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R. ; Value of normal component of scale factor SL (dimensionless), 
computed in "EARROTl". 

RI5: Value of landing site vector (in moon-fixed coordinates), scale 
factor B27, units meters. Can be updated by e.g. P22 (or P27, of 
coiirse), and forms part of the pre-launch erasable load. 

SAC: Required optics shaft angle to have the star line-of-sight lie 

along STAR, scale factor B-1, units revolutions (double precision). 

SINCDUX, SINCDUY, SINCDUZ: Values of sines of information in CDUSPOT, 

scale factor B1 (in the same y,z,x order as CDUSPOT). See COSCDUX. 

SINTH: Value of argianent sine for "ARCTRIG", stored in push-down list 
location 18D, scale factor B2. Also used as communication cell 
with "ARCTAN", in which case only requirement is that scaling be 
the same as for COSTH to that routine. 

STAR: Unit vector, scale factor Bl, specifying the (unit) vector direction 
to the appropriate star. It is in present stable member coordinates 
if "CALCSXA" is entered, and the coordinate system of if 

"SXTANG" is entered. 


STARA£: Unit vector, scale factor Bl, used as communication cell with 

"AXISGEN", giving direction to "star A" in the "C" coordinate system. 
Stored in push-down list location 6D. 


STARAD: Unit vector, scale factor Bl, used as communication cell with 

"AXISGEN", giving direction to "star A" in the "D" coordinate system. 
Stored in cells starting at "STARAD". 

[STARAI^ : Matrix, elements with scale factor Bl, the output of "AXISGEN" . 
It defines "coordinate system D referred to coordinate system C". 

STARB£: Unit vector, scale factor Bl, used as communication cell with 

"AXISGEN", giving direction to "star B" in the "C" coordinate system. 
Stored in push-down list location 12D. 


STARBD: Unit vector, scale factor Bl, used as communication cell with 

"AXISGEN", giving direction to "star B" in the "D" coordinate system. 
Stored in cells starting at "STARAD +6". 

STV, STV', STW, STW': Vectors derived in "AXISGEN", scale factor Bl (the 
primed set pertain to the "D" coordinate system). STV is stored in 
push-down list location 12D and STW in location 18D; STV' in the 
cell originally used for STARBD; and STW' in STARAD +12. 


T 

eph* 


See Boost Computations. 


THETA: Output angle from "ARCTRIG" or "ARCTAN", scale factor BO, units 
revolutions, stored in push-down list location 20D. It is in 
the range - i (i.e. i 180 degrees). 
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TIMEAEG: Valvie of time argument used in computing position and velocity 

of moon from polynomials, scale factor B26, units centi-seconds . 

stored in push-dovm list location OD (also used for sun position 

computation) . For convenience in defining the scaling of the 

C . constants, could also be considered scaled BO in units 
-vcemi 

of quasi-weeks, where 1 quweek = 2 centi-seconds, i.e. 7 days 
18 hours 24 minutes k&.Sk seconds. Total time range that can 
be accommodated is 15^ days (plus 49 minutes 31 •‘2.1 seconds) between 
-MAX and tMAX for TIMEAEG. 


^bl’ ^bl" ^bl 


: Unit vectors, scale factor Bl, used as input to 


"SXTANGl" to provide information on navigation base orientation 
in same coordinate system as STAR (when enter "SXTANGl")* 
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Data Input/Output 


KEYRUPTl (Entered after receipt of program interrupt main DSKY) 

T T 
st now 

TS^ = bits 5-1 (key code) of channel 15 
Proceed to "KEYCOM" 

KEYCOM 

Set bit 15 (DSKYFIAG) of FLA.GWRD5 = 1 (means DSKY display output to 

be generated in "T4RUPT") 

Establish "CHARIN" (priority 30g) 

MPAC+Ot = TS^ (LOCCTR indexes MPAC+0 cell associated with 

^ the "CHARIN" job) 

Resume 

UPRUPT (Entered after receipt of program interrupt #7> uplink input) 

T T 
st now 

Set TS = INLINK and INLINK = 0 
If bit 12(N0D0P01) of FLAGWRDl = 0: 

UPSUM = UPSUM + TS (modulo 2^^) 

UPSUMtl = UPSlMtl + 1 (modulo 2^^) 

Set bit 3 (Uplink Activity) of channel 11 = 1 
TS^ = bits 5-1 of TS 

If bits 10-6 of TS are not the complement of TS^ (i.e. if these bits, 
shifted right 5 places, do not add with TS^ to equal lllll^): 

Set bit 4(UPL0CKFL) of FLAGWRD? = 1 

Resimie 

If bits 15-11 of TS are not equal to TS., (i.e. if complement of these 

bits, shifted right 10 places, do not add with TS^ to equal lllll^) 

Set bit 4(UPL0CKFL) of FLAGWRD? = 1 

Resume 

If TS^ = 22g (Error Reset): 

Set bit 4(UPL0CKFL) of FLAGWRD? = 0 
Skip next line 

If bit 4(UPL0CKFL) of FLAGWRD? = 1, Resume 
Proceed to second line of "KEYCOM" 


CHARIN 


21d22REG - DS FLOCK 
DS FLOCK = 1 

If CADRSTOR ^0: (i.e. internal display waiting for response) 

If MFAC+0 ^ 22g: (input character not Error Reset) 

Set bit 5 (Key Release) of channel 11 = 1 

CHAR = MFAC+0 (loaded in "KEYCOM" with keyboard or uplink data) 
If CHAR = OOg, proceed to "CHARALRM". 

If CHAR = Olg - OVg, proceed to "NUM" 

If CHAR = lOg - llg: 

If DSFCOUNT^-0, End of job 

If bits 2-1 of DECBRNCH = OO 2 , proceed to "CHARALRM" 

Froceed to "NUM” 

If CHAR = 12g - 17g, proceed to "CHARALRM" 

If CHAR - 20g: 

CHAR = 00^ 

O 

Froceed to "NUM" 

If CHAR = 21g, proceed to "VERB" 

If CHAR = 22g, proceed to "ERROR" 

If CHAR = 23g - 30g, proceed to "CHARALRM" 

If CHAR = 3 lg, proceed to "VBRELDSF" 

If CHAR = 32g, proceed to "FOSGN" 

If CHAR = 33 g, proceed to "NEGSGN" 

If CHAR = 34gj proceed to "ENTER" 

If CHAR = 35 ., proceed to "CHARALRM" 

O 

If CHAR = 36 ., proceed to "CLEAR" 

O 

If CHAR = 37g, proceed to "NOUN" 

(Since CHAR is limited to 5 bits, this table includes all values) 


DATA-2 


CHARALRM 


Set bit 7 (Operator Error) of channel 11 1 

End of job 

NUM 

If DSPCOUNT^C” -0, End of job 
Perform "GETINREL" 

If CLPASS > 0, set CLPASS = +0 
CODE = (bits 5-1 of K ) 

COUNT = DSPCOUNT 
Perform "DSPIN” 

If bits 2-1 of DECBRNCH = OO 2 : 

TS = WDREG , cycled left three places (bit 12 into bit 15 etc.) 

WDREGjjjj^^ = TS + CHAR 

If DSPCOUNT / K , : 

^^^INREL 

DSPCOUNT = DSPCOUNT - 1, limited-^ -K) 

End of job 

DSPCOUNT = - DSPCOUNT 
End of job 

'®^‘^INREL ^^^'^INREL^ ^ 

If IwDREGjj^lK (i.e. 16384 ): 

If DSPCOUNT 7 ^ K , : 

^^■tlNREL 

DSPCOUNT = DSPCOUNT - 1 , limited ^ +0 
End of job 
Perform "DECEMD" 

DSPCOUNT = - DSPCOUNT 
End of job 
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DECEND 


If INREL -1^0: (i.e. verb or noun) 

DSPCOUNT = - DSPCOIMT 
End of job 

Perform "GETINREL" (Enter here from "ENTER") 

(WDREGjj^j^, LPREG^j^^) = WDREG^j^^ 

If bits 2-1 of DECBRNCH - IO 2 : 

(WDREGjj^^, LPREGjjjj^l) = - (WDREGjj^lj ^P^'^INREL^ 
Return 


GETINREL 


Set INREL in accordance with the following table: 


DSPCOUNT 

0-4 

5-9 

10-14, 

15 

16-17 

18-19 


INREL 

4 

3 

2 

244, 

1 
0 


8 


Function 

Register # 3 , Digits 5-1 
Register #2, Digits 5-1 
Register #1, Digits 5-1 
Not assigned 

Noun Register, Digits 2-1 

Verb Register, Digits 2-1 

Note that for the display registers. Digit 
1 is the most significant and Digit 5 (oi' 
2 ) is the least significant. 


Return 


VERB 

VERBREG = 0 
DSPCOUNT = 19 
Perform ''2BLANK" 
DECBRNCH = OI 2 


REQRET = 0 


ENTRET = "End of job" 
End of job 
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1 


o 


sj 


NOUN 

NOUNREG = 0 
DSPCOUNT - 17 

Proceed to third line of "VERB" 

NEGSGN 

If bits 2-1 of DECBRNCH 7 ^ OO 2 , End of job 
If DSPCOUNT not equal to k> 9, or I 4 , End of job 
Perforin "-ON" 

DECBRNCH = DECBRNCH + K, , „ + 10^ 

^^^INREL 2 

If CLPASS> 0 , set CLPASS = +0 


-ON 


End of job 

Perform "GETINREL" 

CODE = 0 

^ ""^g^INREL ^ 

Perform "IIDSPIN" (turn off appropriate plus sign) 
CODE = 2 ^° (i.e. bit 11 = 1 ) 

TS = K 

®^^INREL 

Perform "IIDSPIN" (turn on appropriate minus sign) 
Return 


POSGN 


If bits 2-1 of DECBRNCH ^ 00^, End of job 
If DSPCOUNT not equal to k, 9, or lU, End of job 
Perform "+0N" ' 


DECBRNCH = DECBRNCH + K 


‘■bt? 


+ 01 . 


INREL 


I 


DATA -5 


If CLPASS > 0, set CLPASS = +0 
End of job 




+0N 

Perform "GBTINREL" 

CODE = 0 
TS = K 

Perform "IIDSPIN" (turn off appropriate minus sign) 

CODE = (i.e. bit 11 = l) ' 

TS = K , +1 

®^^INREL 

Perform "IIDSPIN" (turn on appropriate plus sign) 

Return 

ERROR 

DSPLOCK = 21d22RBG 

Inhibit interrupts . '' 

Set bit 10 (Caution Reset) of channel 11 = 1 

DSPTAB+11 = bits 6(Gimbal Lock) and 4 (No Attitude) of DSPTAB+11, and 
flag for output at next opportunity 

Set bits 13-11 (PIP2FLBT, DNIXFAIL, UPIKFAIL) of IMODES33 = 1 

Set bit lO(PIPAFLBT) of IM0DES30 = 1 

Set bit 7(0CDUFBIT) of OPTMODES = 1 

Perform "C13STALL" 

Set bit 10 (Test DSKY Lights) of channel 13 = 0 

Set bits 7(0perator Error) and 3 (Uplink Activity) of channel 11 = 0 
Set bit 12 of |dSPTAb1 - jDSPTABtlo| = 1 
Release interrupts 

FAILREG+i = 0 (i = O-l) (can zero FAILRBG+2 by V23N9E E) 

SFAIL = 0 

.J 

End of job 
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CLEAR 


O 




TS = Idspcount) 

Set INREL (using TS as argument) per table in "GETINREL" 

If CLPASS < +0: 

If INREL ^ 2, End of job 

Perform "5BLANK'' (starting at second line) 

CLPASS = CLPASS + 1 
End of job 

INREL = INREL - 1, limited 0 
If INREL K 2, End of job 

REQRET = REQRET + 3 ("backs up" data requests via "ABLOAD" 

"ABCLOAD") 

TS^ = INREL 
VERBREG = VERBREG - 1 
Perform "UPDATVB" 

INREL = TS^ 

Perform "5BLANK" (starting at second line) 

CLPASS = CLPASS + 1 
End of job 
5BLANK 

Perform "GETINREL" 

WDREGij^EL ^ ° 

LPREGj]^]^ = 0 
CODE = 0 

Set bits 1, 2, and ^btVjj^L ^^ECBRNCH = 0 
COUNT = K 

^^^INREL-2 
Perform "DSPIN" 

DSPCOUNT = K,, , 

^‘^^INREL-2 


or 
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Perform "2BLANK" 


DSPCOUNT = DSPCOUNT - 2 

Perform "2BLANK'' 

DSPCOUNT = K , 

^'^INREL-2 

Return 

2BUNK 

TS = integral part of DSPCOUNT) 

DSPTAB^g = 2 ^^ (i.e. bit 12 = 1 )^ and flag for output at next 
opportunity. If not already flagged, NOUT = NOUT + 1 . 

Return 

ENTER 

CLPASS = +0 

ENTRET = "End of job" 

If REQRET^+ 0 , proceed to "ENTPASO" 

If REQRET ^ - ("MMCHANG" + 1 ): 

If bits 2-1 of DECBRNCH 7 ^ 002 ^ 

If DSPCOUNT:^ +0: (i.e. 5 characters not yet input) 

Perform "DECEND" (starting at i+th line) 

REQRET = - REQRET 

Set bit 6 (Flash) of channel 11 = 0 
Proceed to address specified by REQRET 
ENTPASO 

DECBRNCH = 0 
DSPCOUNT = -19 
VERBSAVE = - VERBREG 

If VERBREG - ^ 0, proceed to "VERBFAN" 


Proceed to "TESTNN" 


TESTM 


Perform "LODNNTAB" 

If MKBR = 2: 

If NNADTEM = +0, proceed to "DSPALARM" (Tag here "MIXNOUN") 
If VERBREG - 6 > 0, proceed to "VERBFAN" 

Perform the following for 1 — 3 , 2 , 1: 

TS^ = IDADITEM 
DECOUNT =1-1 
Perform "SFRUTMIX" 

If TS^ indicates (via "DPTEST") double precision: 

TS2 = TS2 + 1 
TS 2 = bits 11-1 of TS 2 

MIXTEMPj_^ = E^g^ (TS 2 in erasable CADR form) 

NOUNADD = "MIXTEMP" 

Proceed to "VERBFAN" 

If NNADTEM >0: 

NOUNCADR = NNADTEM 

EBANK = bits 11-9 of NNADTEM 

NOUNADD = lifOOg + bits 8-1 of NNADTEM 

Proceed to "VERBFAN" 

If NNADTEM = +0, proceed to "DSPALARM" 

If NNADTEM = -0: 

NOUNCADR = NOUNCADR + 1 

EBANK = bits 11-9 of NOUNCADR 

NOUNADD = 2400g + bits 8-1 of NOUNCADR 
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(If NNADTEM = -O): 

If VERBREG = 5j proceed to "VERBFAN" 

DSPCOUNT = 4 
TS = MOUNCADR 
Perform "DSPOCTWD" 

Proceed to "VERBFAN" 

If NNADTEM < -0 (as it will): 

CLPASS = -16383 (Tag here "REQADD") 

If ENTRET — "End of job": (i.e. not from internal use) 

Perform "REQDATZ" (upon return, proceed) 

If DECBRNCH> 0 , proceed to "ALMCYCLE" 

DSPCOUNT = -19 

If CADRSTOR ^ +0, set bit 6 ( Flash) of channel 11 = 1 

NOUNCADR = ZREG 

EBANK = bits 11-9 of NOUNCADR 

NOUNADD = 1400g + bits 8-1 of NOUNCADR 

Perform "LODNNTAB" 

Proceed to "VERBFAN" 

NOUNCADR = MPAC+2 (Tag here "INTMCTBS") 

EBANK = bits 11-9 of NOUNCADR 
NOUNADD = 1400g + bits 8-1 of NOUNCADR 
If VERBREG = 5 , proceed to "VERBFAN" 

DSPCOUNT = 4 
TS = NOUNCADR 
Perform "DSPOCTWD" 

Proceed to "VERBFAN" 
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REQDATX 


DSPCOUNT = lit. 

Proceed to second line of "REQDATZ" 

REQDATY 

DSPCOUNT = 9 

Proceed to second line of "REQDATZ" 

REQDATZ 

DSPCOUNT = h 

REQRET = - (Calling address +l) Calling address is that of "REQDATi"^ 

i = X, Y, or Z. 

Perform "5BLANK" 

Set bit 6(Flash) of channel 11 = 1 
Proceed to address specified by ENTRET 
UPDATNN 

Perform "LODNNTAB" 

If NNADTEM >+0: 

NOUNCADR = NNADTEM 
EBANK = bits 11-9 of NNADTEM 
NOUNADD = 1400g + bits 8-1 of NNADTEM 
DSPCOUNT = 17 
TS = NOUNREG 
Perform "DSPDECVN" 

Return 

UPDATVB 

DSPCOUNT = 19 
TS = VERBREG 
Perform "DSPDECVN" 

Return 
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DSPABC (verb 05) 


TS = -2 

Perform "COMPTEST” 
BUF+2 = - 
Proceed to "DSPAB" 
DSPAB (verb 04) 

TS = -1 

Perform "COMPTEST" 
BUF+1 = - 
Proceed to "DSPA" 


DSPA 


(verb 01) 


TS = -0 

Perform "DCOMPTST" 
Perform "TSTFORDP" 
BUF+0 = - 

Proceed to ”DSPC0M2*' 
DSPB (verb 02) 

TS = -1 

Perform "DCOMPTST" 

BUF+0 - - Ej^quNADD+I 
Proceed to "DSPC0M2" 

PS PC (verb 03 ) 

TS = -2 

Perform "DCOMPTST" 
BUF+0 = - Ejjqujj^j^ 2 
Proceed to "DSPC0M2" 




) 
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DSPC0M2 


I = VERBREG - limited ^0 
DSPCOUNT = 

TS = - BUF+I 
Perform "DSPOCTWD" 

If I = 0, proceed to address specified by ENTRET 
1 = 1-1 

Proceed to second line of "DSPC0M2" 

COMPTEST 

If MIXBR = 1: 

TS^ = NNTYPTEM 
If MIXBR = 2: 

TS^ = NNADTEM 

TS^ = bits 12-11 of cycled left 5 places (placing in bits 2-1) 

If TSp + TS ^0, proceed to "DSPALARM" (noun not have enough components) 
Return 

DCOMPTST 

If MIXBR = 1: 

TS^ = NNTYPTEM 
If MIXBR = 2: 

TS^ = NNADTEM 
If bit 14 of TS^ = 1: 

Proceed to "DSPALARM" (noun is decimal-only) 

Proceed to "COMPTEST" 
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TSTFORDP 


If NNADTEM = -1: 

TS = (bits 9-1 of NOUNCADR) 

BUF+0 = - (contents of channel whose n-umber is in TS) 

Proceed to "DSPC0M2'' 

If MIXER = 2, Return 

TS^ = bits 10-6 of NNTYPTEM, cycled right 5 places (placing in bits 

5-1) 

If indicates (via "DPTEST") double precision: 

MOUNADD = NOUNADD + 1 


Return 


DECDSP (verb 06) 

If MIXER = 1: 

TS^ = NNTYPTEM 
If MIXER = 2: 

TS^ = NNADTEM 


TS^ bits 12-11 of TS^^, cycled left 5 places (placing in bits 2-1) 
DECOUNT = TS^ 

™^^TS^+2 ®NOUNADD+TS^ 

If TS^^O, TS^ = TS^ - 1 and proceed to previous line 
Proceed to "DSPDGPUT" 


DSPDCPUT 


MPAC+i = 0 (i = 1,2) 


DSPCOUNT = K. 


^^DECOUNT 

MPACsp = - ^KEGdECOUNT+2 

If MIXER = 1: 

TS = bits 5-1 of NNTYPTEM 
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If MIXBR = 2: 




TS = bits 5-1 of NNTYPTEM if DECOUNT = 0 

IS = bits 10-6 of NNTYPTEM cycled right 5 places if DECOUNT = 1 
TS = bits 15-11 of NNTYPTEM cycled left 5 places if DECOUNT == 2 
Perform "GTSFOUT" 

If MIXBR = 1: 

TS^ = bits 10-6 of NNTYPTEM, cycled right 5 places 
If MIXBR = 2: 


Perform "SFRUTMIX" 
Proceed to "DECDSP3" 
DSPDCEND 

Perform "DSPDECWD" 


If DECOUNT — 0, proceed to address specified by ENTRET 
DECOUNT = DECOUNT - 1 


Proceed to "DSPDCPUT” 


DPOUT 


If MIXBR = 1; 

TS = NOUNADD 
If MIXBR = 2: 

EBANK = bits 11-9 of IDADITEM^g „„ (e.g. IDAD2TEM for 

DECOUNT = 1) 

TS = 1400g + bits 8-1 of 

^^^^do ~ ^TS > with sign agreement forced 
^ dp 

MPAC^p = (MPAC^p)(SFTEMPl^p) 

Return 


DSPDPDEC (verb 0?) 

If MIXBR = 2, proceed to 
MPAC , = E, 


dp 


NOUNADD, 


dp 


DSPCOUNT = lA 


"DSPALARM" 
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MPAC+2 = 0 


Force sign agreement of MPAC^^ 

Perform "DSP2DEC" 

Proceed to address specified by ENTRET 
ABC LOAD (verb 25) 

TS = -2 

Perform "COMPTEST" 

Perform "NOUNTEST" 

VERBREG = 21 
Perform "UPDATVB" 

Perform "REQDATX" ; upon return, proceed 
VERBREG = 22 
Perform "UPDATVB" 

Perform "REQDATY" ; upon return, proceed 
VERBREG - 23 
Perform "UPDATVB" 

Perform "REQDATZ" ; upon return, proceed 
TS = -6 

Perform "ALLDC/OC" 

Perform "LODNNTAB" 

DECOUNT = 0 
Perform "PUTCOM" 

^NOUNADD "" 

DECOUNT = 1 

Perform "PUTCOM" 

^NOUNADD+1 " 

DECOUNT = 2 

Perform "PUTCOM" 
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) 


®N0UNADrH-2 

If NOUNREG ^ 07 , proceed to "LOADLV" (bit change not specified) 


Inhibit interrupts 
TS = XREG - 30 q 
I f TS > 0: 

EBANK = (bits 11-9 of XREG) 

NOUNADD = lAOOg + (bits 8-1 of XREG) 

Channel 1 = EnquNADD 
XREG = 0001, 


(channel 1 is computer L register, see 

3420.5-27) 


■-8 


TS = 1 


(i.e. original input was 07 , channel 7 ) 


If TS + 21g = 0: 

Release Interrupts 
Proceed to "LOADLV" 

If ZRBG ^ 0 : 

Set those bits of channelj^j^ = 0 that are 1 in YREG 
If ZREG > 0: 

Set those bits of channeLj^^^ = 1 that are 1 in YREG 

If XREG = 1: (assumed to be due to setting above: if load 

(or if <0) XREG = 1 (or negative), no effect, since the 
contents of NOUNADD = 'XREG") 

Ejjounadd ~ Channel 1 (computer L register) 

Release interrupts 

Proceed to "LOADLV" 

ABLOAD (verb 24) 


TS = -1 

Perform "COMPTEST" 

Perform "NOUNTEST" 

VERBREG = 21 
Perform "UPDATVB" 

Perform "REQDATX" ; upon return, proceed 
VERBREG = 22 


Perform "UPDATVB" 
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Perform "REQDATY" ; upon return, proceed 
TS = -5 

Perform "ALLDC/OC" 

Perform "LODNNTAB" 

DECOUNT = 0 
Perform "PUTCOM" 

^NOUNADD "" 

DECOUNT = 1 

Perform "PUTCOM" 

^NOUNADEH-1 ^ 

Proceed to ’’LOADLV” 

ALOAD (verb 21) 

Perform "REQDATX" ; upon return, proceed 
Perform "LODNNTAB" 

DECOUNT = 0 
Perform "PUTCOM" 

^NOUNADD “ 

Proceed to "LOADLV" 

BLOAD (verb 22) 

TS = -1 

Perform "COMPTEST" 

CLPASS = -16383 

Perform "REQDATY" ; upon return, proceed 

Perform "LODNNTAB" 

DECOUNT = 1 

Perform "PUTCOM" 

E = 

NOUMADIMl 

Proceed to "LOADLV" 

CLOAD (verb 23) 

TS = -2 


Perform "COMPTEST" 
CLPASS = -16383 
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Perform "REQDATZ" ; upon return, proceed 


Perform "LODNNTAB" 

DECOUNT = 2 
Perform "PUTCOM" 

^NOUNADEH-2 “ 

Proceed to "LOADLV" 

LOADLV 

DECBRNCH = 0 

LOADSTAT = -0 
Perform "RELDSP" 

DSPCOUNT = -19 

Proceed to "RECALTST" 

ALLDC/OC 

TS^ = DECBRNCH, shifted right 2 places (7 if 3 decimal words, 

6 if 2 decimal words) 

If TS^ = 0, Return (all words octal) 

If TS^ + TS ^ 1, proceed to "ALMCYCLE" 

Return 

NOUNTEST (Entered from "ABCLOAD" and "ABLOAD" only) 

If MIXBR = 1: 

TS^ = NNTYPTEM 
If MIXBR = 2: 

TS^ = NNADTEM 

If bit 15 of TS^ = 1, proceed to "DSPALARM" ("no-load" noun) 
Return 
SFRUTMIX 

If DECOUNT =0: 

TS^ = bits 5-1 of RUTMXTEM 



If DECOUNT = 1: 


TS-, = bits 10-6 of RUTMXTEM, cycled right 5 places (to bits 

5-1) 

If DECOUNT = 2: 

TS = bits 15-11 of RUTMXTEM, cycled left 5 places (to bits 

5-1) 

Return 

PUTCOM 

DECRET = (calling address +l) 

OVFINP = 0 

^^^^dp “ ^'^^^DECOUNT+R ’ ^^™%EC0UNT+2^ 

If MIXER = 1: 

EBANK = bits 11-9 of NOUNCADR (Tag here "PUTNORM") 

NOUNADD = 1400g + bits 8-1 of NOUNCADR 
If DECBRNCH> 0, proceed to "PUTDECSF" 

If bit 14 of NNTYPTEM = 1, proceed to "ALMCYCLE" (decimal only) 

TS-j_ = bits 10-6 of NNTYPTEM, cycled right 5 places 
If TS^ indicates (via "DPTEST") double precision: 

DECOUNT = 0 

NOUNADD = NOUNADD + 1 

DECOUNT = NOUNADD + DECOUNT 

®DEC0UNT-1 “ ^ (most significant half of word) 

TS = MPAC+0 

Proceed to address specified by DECRET 
If NNADTEM = -1: 

If NOUNCADR ^ 7: (note that nn operator indication 

of ignoredTnput is provided) 

TS = (bits 9-1 of NOUNCADR) (note that ought not to = 7) 

Set (channel whose number is in TS) = MPAO+0 
Proceed to "LOADLV" 
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(If MIXBR = 1): 

TS = MPAC+0 

Proceed to address specified by DECRET 
NOUNCADR = bits 11-1 of 
EBANK = bits 11-9 of NOUNCADR 

NOUNADD = lAOOg + bits 8-1 of NOUNCADR - DECOUNT 
If DECBRNCH>0, proceed to "PUTDECSF" 

If bit lA of NNADTEM = 1, proceed to "ALMCICLE" (decimal only) 
Perform "SFRUTMIX" 

If indicates (via "DPTEST") double precision: 

NOUNADD = NOUNADD + 1 
DECOUNT = DECOUNT + NOUNADD 

EdecouNT- 1 “ ^ (most significant half of word) 

TS - MPAC+O 

Proceed to address specified by DECRET 
TS = MPAC+O 

Proceed to address specified by DECRET 
PUTDECSF 

If MIXBR = 1: 

TS = bits 5-1 of NNTYPTEM 
If MIXBR = 2: 

TS = bits 5-1 of NNTYPTEM if DECOUNT = 0 

TS = bits 10-6 of NNTYPTEM cycled right 5 places if DECOUNT = 1 
TS = bits 15-11 of NNTYPTEM cycled left 5 places if DECOUNT = 2 
Perform "GTSFIN" 
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If MIXBR = 1: 


TS^ = bits 10-6 of NNTYPTEM, cycled right 5 places 
If MIXBR = 2: 

Perform "SFRUTMIX” 

Proceed to ''PUTDCSF2" 


BIMROUND 

MPAC^ = MPAC , + MPAC+1 set 

dp dp 

If OVFINP non-zero, proceed to 
TS = MPAC+0 


OVFINP to 1 sgn MPAC if overflow 
"ALMCYCLE" 


Proceed to address specified by DECRET 
DPINSF 

MPAC^p = (MPAC^p)(SFTEMPl^p) 

MPAC. = MPACj. + MPAC+2 set OVFINP to 1 sgn MPAC if overflow 
tp tp 

If OVFINP non-zero, proceed to "ALMCYCLE" 

If MIXBR = 1: 

®N0UNADD+1 "" MPAC+1 
If MIXBR = 2: 

TP = MPAn+l 

NOUNADD+DEC OUNT+1 

TB = MPAC+0 


Proceed to address specified by DECRET 
MONITOR (verbs 11-1? ) 

TS^ = bits 13-1 of NOUNCADR 

If ENTRET = "End of job" (i.e. externally initiated monitor): 
Set bit 14 of TS^ = 1 
M0NSAVE2 = 0 

TS 2 = bits 7-1 of VERBREG (cycled left 7 places) + NOUNREG 
DSPLOCK = 0 
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If CADRSTOR = 0: 


n 




If DSPLIST =0: 

Set bit 5 (Key Release) of channel 11 = 0 (would have been 

turned on if new monitor 

Inhibit interrupts keyed in over old one) 

If MONSAVE =0: 

Call "MONREQ" in 0.01 second 
MONSAVE = TS 2 
MONSAVEl = TS^ 

Release interrupts 

Proceed to address specified by ENTRET 

MONREQ. 

T = T 
st now 

If MONSAVEl'^ -0: 

MONSAVE = 0 
MONSAVEl = 0 
End of task 

Call "MONEEQ'* in seconds 

Establish ”M0ND0” (priority 30^) 

o 

End of task 

MONDO 

If MONSAVEl^ -0, End of job 
If DSPLOCK^ 0: 

Set bit 5 (Key Release) of channel 11 = 1 
End of job 

NOUNREG = bits 7-1 of MONSAVE 
Perform "UPDATNN" 

VERBREG = (bits 14-S of MONSAVE, shifted right 7 places) - 10 
ENTRET = "PASTEVB" 

MPAC+2 = bits 13-1 of MONSAVEl 
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Proceed to "TESTNN" (will return via ENTRET to "PASTEVB") 

PASTEVB 

TS = bits U-8 of M0NSAVE2 

If TS = 0: (non-zero if "MARKMONR" display interface routine used) 

TS = MONSAVE 

VERBREG = (bits 14-S of TS, shifted right 7 places) 

Perform "UPDATVB" 

REQRET = +0 
TS = M0NSAVE2 


Perform "BLANKSUB" : if retxirn to calling address +1, proceed 

otherwise, proceed 

End of job 
DSPFMEM (verb 2?) 


DSPCOUNT = 14 


If bits 15-11 of MOUNCADR^ Z] 

8 

^ ^NOUNCADR 


(fixed memory address in bank 

below; NOUNCADR loaded in 
format by using V27 NOl) 


27. or 
FCADR 


If bits 15-11 of NOUNCADR > 27.: 

8 

Channel 7 = bits 7-5 of 
DSPTEMl+2 


(fixed memory address in bank 30 
or above; DSPTEMl+2 loaded by ° 
using V23 N25 before V27 NOl that 
is used to load FCADR NOUNCADR) 


^NOUNCADR (address information also determined by Channel 
7 contents) 


Restore Channel 7 to previous value 
Perform "DSPOCTWD" 


End of job 
PS PS ION 

If MPAC+0^ +0: 


Perform "+0N" 


If MPAC+0 -0: 


MPAC, 

dp 


- MPAC 


dp 


Perform "-ON" 
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Return 


DSPDECWD 

Perform "DSPSIGN" 

MPAC^ = MPAC^ + K. If overflow, MPAC = tMAX 

dp dp dcrd dp 

WDCNT = 4 


Proceed to "DSPDCWDl" 


DSPDCWDl 

MPAC^ = K, MPAC, 
tp oncn tp 

CODE == (bits 5-1 of K ) 

^^‘^MPAC+0 


COUNT = DSPCOUNT 

MPAC^ = 2^ MPAC, 
tp tp 

DSPCOUNT = COUNT - 1 


(overflow ignored: this preserves the fractional 
part of the miiltiplication in the first line) 


Perform "DSPIN" 


If WDCNT > 0: 

WDCNT = WDCNT - 1 


Proceed to "DSPDCWDl" 


DSPCOUNT = -19 
Return 


DSPDC2NR 


Perform "DSPSIGN" 


WDCNT = 1 

Proceed to "DSPDCWDl" 

DSP2DEC 

CODE = 0 
TS = 3 

Perform "IIDSPIN" (turn off R2 minus sign) 
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TS = 4 


Perform "IIDSPIN" (turn off R2 plus sign) 

Perform "DSPSIGN” 

WDCNT == 9 

Proceed to "DSPDCWDl" 

DSPDECVN 

MPAC+0 TS 

MPAC+1 = 0 
WDCNT = 1 

Proceed to "DSPDCWDl" 

DSPOCTWD 

TS^ = TS 

DSPCOUNT = DSPCOUNT + 2^3 (sets bit 14 = 1) 

WDCNT = 4 

Proceed to "WDAGAIN" 

WDAGAIN 

Cycle TS^ left 3 places and store in TS^ (bits 15-13 become 3-1) 

TS = bits 3-1 of TS^ 

CODE = (bits 5-1 of ) 

TS 

COUNT = DSPCOUNT 
DSPCOUNT = DSPCOUNT - 1 
Perform "DSPIN" 

If WDCNT > 0: 

WDCNT = WDCNT - 1 
Proceed to "WDAGAIN" 

DSPCOUNT = -19 
Return 
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DSPIN 


DSREL - bits 5-2 of COUNT, shifted right 1 place (i.e, ^ COUNT) 
If bit 1 of COUNT = 0: 

COUNT = 0 

Proceed to "DSPINl” 

Shift CODE left 5 places (bits 5-1 become bits 10-6) 

If bit 14 of COUNT = 1: 

COUNT = 3 

Proceed to "DSPINl" 

COUNT = 1 

Proceed to "DSPINl” 

DSPINl 

Inhibit interrupts 
TS = |DSPTAB^3g^j_l 

If COUNT = 0, set bits 5-1 of TS = bits 5-1 of CODE 

If COUNT = 1, set bits 10-6 of TS = bits 10-6 of CODE 

If COUNT = 2, set bit 11 of TS = bit 11 of CODE 

If COUNT =3, set bits 11-6 of TS = bits 11-6 of CODE 

If TS f 1D3PTAB33j3jj_| = 

DSPTABj^gj^^ = TS, flagged for output at next opportunity 
If not already flagged, NOUT = NOUT + 1 
Release interrupts 
Return 
IIDSPIN 

DSREL = TS 
COUNT =2 

Proceed to "DSPINl" 
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DSPAURM 


If ENTRET = "NVSUBEND" : (i.e. internal request) 

Proceed to "POODOO" (pattern 21501^) 

If ENTRET = "PASTEVB"; (i.e. from "HONDO") 

MONSAVEl = AOOOOg (sets bit 15 to l) 

Set bit 7(0perator Error) of channel 11 = 1 

Proceed to "PASTEVB" (to put monitor verb back in VERBElBCi) 

Set bit 7 (Operator Error) of channel 11 = 1 

End of job 
ALMCYCLE 

Set bit 7(0perator Error) of channel 11= 1 
REQRET = - VERBSAVE (sets to a positive number) 

VERBREG = - VERBSAVE 

Perform "UPDATVB" ) 

Proceed to ’’ENTER’’ 

MMCHANG (verb 37) 

Perform ’’REQiyiM” 

If DSPCOUNT -16, proceed to "ALMCYCLE" (2 digits not entered) 

MPAC+0 = NOUNREG 
NOUNREG = 0 

DSPCOUNT =17 ' 

Perform "2BLANK" 

DSPCOUNT = -19 
TS = MPAC+0 
Proceed to "V37" 

REQMM 

REQRET = - (Calling address + l) ) 

DSPCOUNT = 17 
NOUNREG = 0 
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Perform "2BIANK" 


Set bit 6 (Flash) of channel 11 = 1 
DECBRNCH = 01^ 

Proceed to address specified by ENTRET 
VBRQEXEC (verb 30) 

Perform "RELDSP" 

If N26dPRI = 0: 

Proceed to "DSPALARM" 

If bit 1 of N26dPRI = 1: 

Establish a job with 2CADR information in N26d2CAD, , with 
a VAC area, and with priority given by bits 14-10 ^of N26dPRI 

If bit 1 of N26dPRI = 0: 

Establish a job with 2CADR information in N26d2CAD, , with 
no VAC area, and with priority given by bits 14-10 ^of N26dPRI 

End of job 

VBRQWAIT (verb 3l) 

Perform "RELDSP" 

If N26dPRI = 0: 

Proceed to "DSPALARM" 

Call task in N26dPRI centi-seconds with starting address given 
by N26d2CAD^p (in 2CADR format) 

End of job 

VBRESEQ, (verb 32) 

LOADSTAT = -0 

Proceed to second line of "VBPROC" 

VBPROC (verb 33; also entered from "PROCKEI") 

LOADSTAT = -1 

MONSAVEl = 40000g (sets bit 15 to 1 and bit 14 to O) 

Perform "RELDSP" 

Set bit 6 (Flash) of channel 11 = 0 
Proceed to "RECALTST" 


VBTERM (verb 34) 


LOADSTAT = -2 

Proceed to second line of "VBPROC" 
PROCKEY (Established by "PROCEEDE") 

If ]22 - VERBREGj^ 1; 

Proceed to "CHARALRM" 

RBQRET = 0 
DSPCOUNT = -19 
Proceed to "VBPROC" 

VBRELDSP (Entered from "CHARIN") 


(includes case of e.g. V21 PRO, 
but not V25 PRO) 


Set bit 3 (Uplink Activity) of channel 11 = 0 


If 21d22REG > 0: 

If bit 14 of MONSAVEl = 1: (external monitor) 

DSPLOCK = 0 (causes monitor to be started again 

due to "MONDO" logic) 

If CADRSTOR = 0: 


If DSPLIST = 0: 

Set bit 5 (Key Release) of channel 11 = 0 

End of job 
Perform "RELDSP" 

If CADRSTOR = +0, End of job 
Proceed to "PINBRNCH" 

MVSUB 

TS^ = 0 (L-register, M0NSAVE2 information) 

Proceed to "NVMONOPT" 

NVMONOPT (Entered with TS, verb-noim pattern or blanking code, in A) 
If bit 14 of MONSAVEl =1, or if DSPLOCK > 0: 

Return (to calling address +1, indicating system "busy") 
M0NSAVE2 = TS^ 

MONSAVEl = 40000g (sets bit 15 to l) 

ENTRET == "NVSUBEND" 

If )ts| = 0, proceed to "DSPALARM" 
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If TS <0: (error if -5 or less) 

1 = iTSl + 6 

Set DSPTABfO - DSPTABfi = 2^^ (i.e. blank) and flag for output 
at next opportunity. If individual DSPTAB cell not already 
flagged, NOUT = NOUT + 1 

If TS^ -3: 

VERBREG = 0 
If TS ^ -2: 

NOUNREG - 0 
CLPASS = 0 
DSPCOUNT = -19 

Set bit 6(Flash) of channel 11 = 0 
REQRET = 0 

Proceed to "NVSUBEND” 

TS^ = bits 7-1 of TS (original input to routine, giving noun) 

TS 2 = bits 14-8 of TS, shifted right 7 places (giving verb) 

If TS^ = 0: 

VERBREG = TS^ 

Perform "UPDATVB" 

REQRET = 0 

Proceed to "NVSUBEND" 

If TS = 0: 

2 

NOUNREG = TS^ 

Perform "UPDATNN" 

Proceed to "NVSUBEND" 

TS^ = MPAC+2 (MPAC+2 contains machine address for address-to- 
be specified nouns) 

VERBREG = TS^ 

Perform "UPDATVB" 

NOUNREG == TS^ 


Perform "UPDATNN" 


LOADSTAT = +0 


CLPASS = 0 
REQRET = 0 
MPAC+2 = TS^ 

Proceed to "ENTPASO" 

NVSUBEND 

Proceed to ("NVMONOPT" calling address +2) 

JAMTERM 

REQRET = 34 
VERBRBG = 34 
DSPCOUNT ■•= -19 
Proceed to "VBTERM" 

BLANKSUB (Entered with TS, bits 1-3, set to blank R1 - R3 respectively) 

If bit 14 of MONSAVEl =1, or if DSPLOCK >0: ^ 

Return (to calling address +1, indicating system "busy") 

TS, - (bits 3-1 of TS) (TS, in NVTEMP cell) 

4 4 

If TS, = 0: 

4 

Return (to calling address +2) 

TS^ = DSPCOUNT (in BUF+2 cell) 

If bit 1 of TS^ = 1: 

DSPCOUNT -= 14 

Perform '’5BLANK’* 

If bit 2 of TS, = 1: 

4 

DSPCOUNT = 9 
Perform ’’5BLANK” 
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If bit 3 of TS, = 1: 

4 

DSPCOUNT = 4 
Perform "5BLANK" 

DSPCOUNT = TS^ 

Return (to "BLANKSUB" calling address +2) 

NEWMODEX (Entered vdth TS = new major mode pattern) 

MODREG = TS 

Establish "DSPMMJB" (priority 30g) 

Return 

DSPMMJB 

TS 2 = DSPCOUNT 
DSPCOUNT =21 

If MODREG = -0, perform "2BLANK'' 

If MODREG +0: 

TS = MODREG 
Perform "DSPDECVN" 

DSPCOUNT = TS 2 
End of job 
RECALTST 

If CADRSTOR =0, End of job 
Inhibit interrupts 

Awaken job with starting address id = CADRSTOR 
CADRSTOR = 0 

mpaClocctr "" (^BREG, NOUNREG) 
dp 

Release interrupts 
Perform "RELDSP" 

End of job 
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RELDSP 


Set bit 14 of MONSAVEl = 0 
If DSPLIST ^ 0: 

Awaken job with starting address id = DSPLIST 
DSPLIST = 0 

Set bit 5 (Key Release) of channel 11 = 0 

DSPLOCK = 0 

Return 


) 
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See also list of major variables and list of routines 


21d22REG: Temporary storage cell for previous value of DSPLOCK, used to 
avoid changing DSPLOCK if an Error Reset code is received, etc. 

BUF: Temporary storage cell. 

CADRSTOR: Single precision cell indicating, if non-zero, that a job has 
been put to sleep in "ENDIDLE" . The contents of the cell are the 
address to which return is made: the cell is loaded with "IDLERETl" 
in "ENDIDLE" when putting the job to sleep. 

CHAR: Input character (from DSKY or uplink), scale factor BIA (located 
in bits 5-1) • 

CLPASS: Control cell for "CLEAR": if negative, a single -component load 
verb (22 or 23) is being used, so Clear inputs must not "back up" 
(successive clears should not reset previously loaded registers). 

If CLPASS = +0, this indicates that the register indicated by 

DSPCOUNT has had a character (number or sign) loaded in it, so 

that register would be cleared by an input of the Clear code. Scaled BI4. 

CODE: Cell used to contain the required relay pattern code for loading 

DSPTABj and causing the proper character to be displayed by DSKY, BI4. 

COUNT: Cell used in "DSPIN" to contain identification of the output 
character to be changed. Scale factor BI4. 

DECBRNCH: Cell used to control the processing of data inputs: the least 
significant two bits are OO2 for an octal number, OI2 for a 
positive decimal number (including verb, noun, and program number 
inputs), and IO2 for a negative number. Bits 3“5 respectively are 
one if registers 3-I are loaded with decimal information, and are 
used to check that multiple -component load verbs employ either all- 
decimal or all-octal input. 

DECOUNT: Cell used for indexing purposes to control processing of 

multiple-component verbs, scale factor BI4. Has values 0-2 for 
first, second, and third component respectively. 

DECRET: Exit address after performance of "PUTCOM". 

DSPCOUNT: Display counter, scale factor BI4, identifying digit of data 
input expected next, as defined by table in "GETINREL" . If is 
negative, no numerical inputs are accepted. It is set to -19 to 
inhibit all numerical inputs (and the Clear code) after the completion 
of certain functions. Values of 20—21 are for display of program 

numbe r ( MOD REG ) . 
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DSPLIST: Single precision erasable memory cell indicating, if non-zero, 
that a job has been put to sleep in "NVSUBUSY" while vraiting for 
the display system to be released by the crew. The contents of 
the cell are the starting address of the job. 

DSPLOCK: Word used to indicate, if non-zero, that some external use 

(DSKY or uplink) of the display system has been made, and therefore 
internal attempts (via "NVMONOPT") to use the display system are delayed. 
When the display system is "released" (via "RELDSP"), DSPLOCK is 
set 0. Scale factor is BIA.. 

DSREL: Indexing cell used to specify the DSPTAB cell to be modified 
in "DSPIN"^ scale factor Blit.. 

EBANK; Hardware erasable memory bank register, required together with 
another address (see NOUNADD) to specify completely the memory 
location of an arbitrary erasable memory cell. See 3420.5-27 
for more details. 

ENTRET: Return address Information from display program. Set to "End of 
job" for keyboard or uplink input, or to the address of additional 
computations if from "NVMONOPT" or "HONDO". Tags ENTRET and 
ENTEXIT both used in the program for this cell. 

FAILREG: See General Program Control. 

IDADITEM: See Noun Definitions. 

IMODES3O, IMODES33: See IMU Computations. 

INLINK: Computer special erasable memory cell (address 0045^) containing 
complete word (received one bit at a time) from the uplink 
receiver. Sixteen bits are received by the computer (additional bits 
are used by the receiver for spacecraft and system identification), 
with the first bit a binary one. When this first bit is shifted 
out of bit 15 (the most significant end) of the INLINK register, 
program interrupt #7 is generated, causing "UPRUPT" to be entered. 

INREL: Indexing cell used to select internal computer word for the 

display system, set in accordance with table in "GETINREL", BI 4 . 

%ncn" ^4ngle precision constant, program notation "BINCON", scale 
factor BI 4 , value 10. Leaves integral part of product (in 
"DSPDCWDl") in MPAC+0. 

Kbt 7 • Table of individual bits, giving values equal to bit 5, bit 4, 

I and bit 3 Toi' I 2-4 respectively. 

^crtj’ constants, program notation "CRITCON", giving value of 

DSPCOUNT for last character in verb, noun, and RI-R 3 registers. 

Values (for I = 0-4 respectively) are 18, I 6 , 10, 5, and 0, BI 4 . 
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^dbk ■ constants, program notation "DOUBLK", values I3, 9, 

I and 3 for I = 0-2 respectively, scale factor BI4. 

%crd' Constant, program notation "DECROUND -1", scale factor BO, octal 
value OOOOOg 02476 q. Considering quantity involved to have a 
maximum value (for display purposes) of 0.99999, the constant has 
an equivalent value of 2476g x 2“'^®, or about J x 10~5. 

%sc^ Constan^ program notation "DECON", scale factor B-I4, value 

10“5 X 2 . Constant performs the function of converting integer 

decimal input to a fraction (it is not used for verb, noun, or 
program number inputs). 

^ond' Single precision constant, program notation "MONDEL", scale 

factor BI4, units centi— seconds . Value is 00144^^ corresponding 
to a decimal value of 100 or a monitor period 01 one second. 

^owvb* Single precision constant, program notation "LOWVERB", scale 
factor BI4, value 28. VEPiBREG contents of this value or above 
bypass "TESTNN". 

^rdy' Table of constants, program notation "RlDl", values I4, 9, and 
T 4 for I = 0-2 respectively, scale factor BI4. 

^rtbj- Table of constants information, program notation "RELTAB", 

containing in least significant 5 bits the required value of CODE 
for the digit value specified by I: 


Value 

I 

Value 

258 

5 

3^8 

34g 

238 

34 

3^8 

038 

6 


7 

338 

17® 

8 

9 


See 3420.5-27 for more details. 

^sgt ' Table of constants, program notation "SGNTAB", values 5, 3, 

I and 0 for I = 2-4 respectively, scale factor BI4. 

^snbj' Table of constants, program notation "SINBLANK", values I4, 5, 
and 4 for I = 0-2 respectively, scale factor BI4. 

^vncon’ ^Tngle precision constant, program notation "VNDSPCON",. scale 

factor BO, octal value 00244g^ corresponding to l64 x 2~^, or about 
0.01. Used to convert two-digit integer information to a fraction 
for subsequent processing by "DSPDCWDl". 

LOADSTAT: Cell used in "ENDRET" to determine the proper response if a job 
was put to sleep in "ENDIDLE". It is set to +0 if waiting for an 
input; -1 if a proceed input is received; -2 if a terminate input is 
received; -0 if an "otherwise" (data load, V32E, etc.) is received; 

■'■T "EMDEKT" to indicate use for terminating extended verbs. 
Scale factor is BI4. 
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LOCCTR: Indexing parameter used to locate cells within the particular 
job register set assigned to a job which has been established (or 
a job which has been awakened). See 3420.5—27 for more details. 

LPREGj: Set of cells, defined only for I == 2-4 (XREGLP, YREGLP, and 
ZREGLP respectively), containing the least significant half 
of product for decimal input information. 

MIXER: See Noun Definitions. 

MIXTEMP: Set of cells loaded if a display verb is used with the values 
of the memory cells specified by a "mixed" noun. 

MONSAVE: Cell used to contain verb (bits 14-8) and noun (bits 7-1) 

information for monitor-type verbs. Cell is zero if no monitor 
function is being performed. 

MONSAVEl: Cell used to contain in bits I3-I the value of NOUNCADR for 
monitor verbs. Bit 15 (the sign) is set 1 if it is desired to 
terminate the monitor function, and bit 14 is set 1 if the monitor 
function was externally (DSKY or uplink) initiated . 

M0NSAVE2: Cell which can be set non-zero if internally initiated monitor 
started via "NVMONOPT", and used in "PASIEVB" to provide the 
capability for "pasting" a verb other than that used to generate 
display information, and to provide the capability for blanking 

a monitor display. Verb information in bits 14-8; blanking bits \ 

in bits 3-1 for R3, R2, and R1 respectively. ,) 

N26d2CAD: Pair of cells loaded by R2 and R3 of N26, used to specify in 
2CADR format (see 3420.5-27) the starting address for the job/task 
to be initiated by V3OE/V3IE. Program notation "N26/2CAD". 

N26dPRI: Single precision cell used to specify the priority for a V30 or (B14 cs) 
the required delay time for a V3I before N26d2CAD step is entered. It 
is loaded by R1 of N26. A value of zero is used to lock out both 
V30 and V31, to avoid erroneous actions if keyed in inadvertently. 

Program notation "N26/PRI" . 

NNADTEM, NNTYPTEM: See Noun Definitions. 

NOUNADD: Cell containing erasable memory address information derived 
from noun data. If bits 12 and 11 are zero and bits 10 and 9 ai'e 
one (i.e. in range 1400g - 1777g)i then the contents of EBANK 
determine which "bank" of 256 erasable memory cells is selected, 
while the contents of NOUNADD determine which cell within the bank 
is referenced. If NOUNADD is less than 1400g, a unique cell is 
selected and EBANK is ignored. See 3420.5-27 for more details. 

NOUNCADR: Cell containing the complete noun addressing information, 

obtained either from the noun tables or from an additional piece 
of input information. If the quantity is known to be in erasable 
memory, bits 11-9 are loaded into EBANK and bits 8—1 are added to 

UOOg to form NOUNADD. ^ 

NOUNREG: Cell containing (in bits 7-1) the decimal value of the noun, 

which specifies "to what". The verb indicates "do what". Scaled BI4. 
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NOUT: See General Program Control. 

OPTMODES : See Optics Computations . 

OVFINP: Single precision cell, program notation "MPAC+6", used to 
retain the fact that overflow has taken place in the "Pinball" 

DSKY processing routines (mainly inputs). It is set 0 in "PUTCOM", BI 4 . 

REQRET: Cell controlling the interpretation of an "enter" command. 

If it is zero or any positive value, an initial pass for processing 
of the verb and noun information is performed; if negative, the 
cell is considered to contain the complement of the address to 
which return should be made when a word of data input has been 
completed . 

RUTMXTEM: See Noun Definitions. 

SFAIL: Cell used in computer self -check routine to contain return address 
from error subroutine (hence can be used to identify reason for 
failure of self -check). See Testing Routines. Scale factor BI 4 . 

SFTEMPl: See Noun Definitions. 

Value of T^ sampled shortly after program interrupt acted 
upon (uplink, waitlist for monitor, or either keyboard). It can 
be displayed by noun 65 . Scale factor B28, units centi-seconds . 

UPSUM: Single precision cell, scale factor BI 4 , used for uplink summing 
purposes (in "UPRUPT") if bit 12(N0D0P0l) of FLAGWRDl =0. It can 
be used to check the validity of e.g. erasable memory programs loaded 
via uplink. 

UPSUMtl: Single precision cell, scale factor BI 4 , used to count the number 
of uplink interrupts processed if bit 12(N0D0P01) of FLAGWRDl = 0. 

It is the cell after UPSUM in memory. 

VERBREG: Cell containing (in bits 7-1) the value of the verb (c.f. 

NOUNREG). Scale factor is BI 4 . 

VERBSAVE: Cell loaded in "ENTPASO" with complement of VERBREG, used 

in "ALMCYCLE" to permit another attempt to be made to provide the 
required information. Loaded in "HMSIN" with - 25. Scaled BI 4 . 

WDCNT: Counter used in digit display routines to cause the proper number 
of digits to be displayed, scale factor BI 4 . 

WDREG^: Set of registers, identified as VERBREG, NOUNREG, XREG, YREG, 
and ZREG for I = 0-4 respectively. 

XREG, YREG, ZREG: Cells containing information (with LPREG if decimal) 
associated with display registers Rl, R2, and R3 respectively. 

Noun table information for noun 07 is such as to assign the data 
loaded for that noun to these same cells, for processing at the 
end of "ABCLOAD". 
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Format for DSPTAB+O 


DSPTAB+10 


Cell 

Bit 11 

Bits 10-6 

Bits 5-1 

DSPTAB+O 

-R3S 

R3D4 

R3D5 

DSPTABtl 

+R3S 

R3D2 

R3D3 

DSPTABt2 


R2D5 

R3D1 

DSPTAB+3 

-R2S 

R2D3 

R2D4 

DSPTABfA 

+R2S 

R2D1 

R2D2 

DSPTAB+5 

-RIS 

R1D4 

R1D5 

DSPTABtb 

+R1S 

R1D2 

R1D3 

DSPTAB+7 



RlDl 

DSPTAB+8 


NDl 

ND2 

DSPTAB+9 


VDl 

VD2 

DSPTAB+10 


MDl 

MD2 


For a positive DSPTAB cell, bit 12 is always 1. To flag a 
change, the complete word is complemented. 

Rl, R2, and R3 are the three digital display registers, with 
D5 the least significant digit and D1 the most significant. 
Each register has an associated sign bit, indicated by -RiS 
or +RiS . If no sign is to be indicated, neither sign bit is 
set. The codes for the individual numbers (blank and 0-9) 
appear on page DATA-37 (under Kj^tb^* 

The two-digit noun, verb, and mode (or program) registers are 
indicated by "N", "V", and "M" respectively. D2 is the least 
significant digit and D1 the most significant. The codes for 
the individual numbers are the same as for the digital display 
registers . 
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Display Interface Routines 


BLANKET (TS set when enter with bits to be set 1 in MPAC+4 of the 

display job: bits 3~1 = 1 to blank R3, R2, and R1 respectively. 
Tag is also "LINUS") 

TS = (- MPAC+4) f) TS (sets those bits of TS = 1 that are 0 

in MPAC+4 of present job and 1 in TS) 

MPAC+4t^,„,= MPAC+4^, + TS ("GODSPRS+1" set MPAC+5 of 
jyirAU+> MrAU-1-5 ciorrent job to LOCCTR of 

job established there) 


Retiirn 


CLEANDSP 


MPAC+1 = 0 ( 

MPAC+4 = 20010 


causes "NVDSP" to establish "JAMTERM", returning to 
calling address +1 with blanking in "ENDRET") 
g (RESETREQ, FLREQ) (bit 14 means repeat of 

display flash requested) 


Proceed to "G0FLASH2+1" 


CLEARMRK 

EKTVBACT = 0 

Set bit l(XDSPFLAG) of FLAGWRD4 = 0 
Return 

CLOCPLAY Entered from "CLOCKJOB" for V97/V99 generation 

MPAC+1 = TS 

MPAC+4 = 24030g (RESETRBQ, BURNREQ, PERFREQ, FLREQ) 
Proceed to "G0FLASH2+1" 


ENDEXT (Tags also "ENDEXTVB" , "ENDMARK", and "TERMEXTV") 

Perform "CLEARMRK" 

LOADSTAT = 1 

If bits 14(PRI0IDLE) and 13(N0RMIDLE) of FLAGWRD4 = OO 2 : 

Proceed to "NORMRET" (neither priority or normal display 

waiting for response) 

Set bit 6(PINBRFLG) of FLAGWRD4 = 1 

If bit 14(PRI0IDLE) of FLAGWRD4 =1: (priority display waiting 

for response) 

Proceed to second line of "REDOPRIO" 

Proceed to "PLAYJUMl" 
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EXDSFRET (TS set to verb-novin pattern) 


MPAC+1 = TS 

MPAC+4 = 40040g (MKEXREQ, DOTHNRET) (bit 6 means return request 

after display generated) 

Proceed to "G0FLASH2+1" 

GODSP (TS set to verb-noun pattern) 

MPAC+1 = TS 
MPAC+4 = 0 

Proceed to ''G0FLASH2+1" 

GODS PR (TS set to verb-noun pattern) 

MPAC+1 = TS 
MPAC+4 = 0 

TS^ = 0 (Causes return to calling address +l) 

Proceed to second line of "GODSPRS+1" 

GODS FRET (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 — 00040 g (DOTHNRET) (means return request after 

display generated) 

Proceed to "G0FLASH2+1'' 

GOFLASH (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = 000 lOg (FLREQ) 

Proceed to "G0FLASH2+1" 

GOFLASHR (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = OOOlOg (FLREQ) 

Proceed to "GODSPRS+l" 
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G0MARK2 (TS set to verb-noiin pattern) 


MPAC+1 = TS 

MPAC+4 - A0030g (MKEXREQ, PERFREQ, FLREQ) 

Proceed to "G0FLASH2+1'' 

G0MARK4 (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = 40036g (MKEXREQ, PERFREQ, FLREQ, R 3 BLNK, R2BLNK) 
Proceed to ’'GOFIASH2+1” 

GOMARKFR (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = 40010g (MKEXREQ, FLREQ) 

Proceed to "GODSPRS+l" 

GOPERFl (TS set to octal checklist) 

DSPTEMl = TS 
MPAC+1 = 0125^^^ 

MPAC+4 = 00036g (PERFREQ, FLREQ, R 3 BLNK, R2BLNK) 

Proceed to "G0FLASH2+1" 

GOPERFIR (TS set to octal checklist) 

DSPTEMl = TS 
MPAC+1 = 0125^^ 

MPAC+4 - 0003 6 g (PERFREQ, FLREQ, R 3 BLNK, R2BLNK) 

Proceed to "GODSPRS+1" 
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G0PERF2R (TS set to verb-noim pattern) 


MPAC+1 = TS 

MPAC+4 = 00030g (PERFR0Q, FLREQ) 

Proceed to "GODSPRS+1" 

GOPERFA (TS set to octal OPTIONl; OPTION2 already loaded) 

OPTIONl = TS 
MPAC+1 = 0406 ^ 

MPAC+A = OOOlAg (FLREQ, R3BDIK) 

Proceed to "G0FLASH2tl" 

GQXDSPF (TS set to verb-noun pattern) Tag also "GOMARKF" 

MPAC+1 = TS 

MPAC+4 = AOOlOg (MKEXREQ, FLREQ) 

Proceed to "G0FLASH2tl" 

INITDSP (Entered if restart logic finds an x.l restart phase 

setting, indicating a restart-protected normal display) 

EBANK = (bits 11-9 of DSPFLGi-2) 

Channel 7 = (bits 7-5 of RESTRBG) 

TS = (bits 14-10 of RESTREG) 

Change priority of present job to TS ("INITDSP" established with 14g) 

TS = CADRFLSIB-2 - 3 (normal calling sequence for display routines 

such that this returns to step loading TS with 
information before transfer to display routine) 

Proceed to address specified by TS 

KLEENEX 

MPAC+1 =0 (see note with "CLEANDSP" ) 

MPAC+4 = 40010g (MKEKREQ, FLREQ) 

Proceed to "G0FLASH2tl" 
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MARKMONR (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = 40210g (MKEXRBQ, DECMON, FLREQ) 

Proceed to "GOFLASH^fl" 

PINBRNCH Entered from "IDLERETl" if noun used vd.th load verb not 

what was requested, and from "VBRELDSP" if key release 
button depressed with no external monitor suspended and 
with CADRSTOR ^ 0. Also from other places (e.g. "AIM/END" ) . 

Release interrupts (may have been inhibited before entrance) 

MPAC+2 = MARK2PAC 

If bits 15(MARKIDLE), 14(PRI0IDLE) , and 13(N0RMIDLE) of FLAGWRD4 
all = 0: 

(no display waiting for response) 

TS = -3 (blank all display registers except program) 

Perform "NVSUB" : if busy, proceed; otherwise, proceed 

End of job 

If bit 15(MARKIDLE) of FLAGWRD4 = 1: 

Proceed to "MARKPLAY" 

Set bit 6(PINBRFLG) of FLAGWRD4 = 1 

If bit 14(PRI0IDLE) of FLAGWRD4 = 1: (priority display waiting 

for response) 

Proceed to second line of "REDOPRIO" 

Proceed to "PLAYJUMl" 

PRIODSP (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = OOllOg (PRIOREQ, FLREQ) 

Proceed to "G0FLASH2+1" 

PRIODSPR (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = OOllOg (PRIOREQ, FLREQ) 

Proceed to "GODSPRS+l” 
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REFLASH (TS set to verb-noun pattern) 


MPAC+1 = TS 

MPAC+4 = 20010g (RESETREQ, FLREQ) (bit 14 means repeat of display- 

flash requested) 

Proceed to "G0FLASH2+1" 

REGrODSP (TS set to verb-noun pattern) 

MPAC+1 = TS 

MPAC+4 = 20000g (RESETRB3) 

Proceed to "G0FLASH2tl" 

REGODSPR (TS set to verb -noun pattern) 

MPAC+1 = TS 

MPAC+4 = 20000g (RESETRBQ) 

TS^ = 0 (Causes return to calling address +l) 

Proceed to second line of "GODSFRS+1" 

VNFLASH (TS set to verb-noun pattern) 

MPAC+1 = TS 

Increment calling address (i.e. QRBG) by 1 
Set bit 2(VNFLAG) of FLAGWRD4 = 1 
Proceed to second line of "GOFLASH" 

VNFLASHR (TS set to verb-noun pattern) 

MPAC+1 = TS 

Increment calling address (i.e. QREG) by 1 
Set bit 2(VNFLAG) of FLAGWRD4 = 1 
MPAC+4 = OOOlOg (FLREQ) 

TS, = 0 (Causes return to calling address +"1" (actually 2 

due to QRBG increment)) 

Proceed to second line of "GODSPRS+1" 
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GODSPRS+1 (Entered for those display interface routines, except "MARKMONR", 
whose tags end in "R", to cause "MAKEPLAY" to be established 
and then return to calling routine) 

TS. = 3 (Causes return to calling address +4; bypassed if from 
^ "GODSPR", "REGODSPR", or "WFLASHR") 


If bit 4 of MPAC+4 = 1: (FLREQ) 


Establish "MAKEPLAY" (with VAC area, and with priority and 

channel 7 setting same as current job) 

If bit 4 of MPACH-4 = 0: (FLREQ) 

Establish "MAKEPLAY" (with no VAC area, with priority same as 

current job, and channel 7 setting to 3) 


Set bits 11-9 of MPAC+4 = EBANK 


MPAC+3 = (calling address +1, in FCADR format, of display interface 
routine, where "calling address" is that of the routine's 
CADR, i.e. cell after TC BANKCALL, except for "VNFLASHR") 

Set MPAC+1 through MPAC+4 of the "MAKEPLAY" job (determined by 
using LOCCTR for indexing) eqixal to MPAC+1 through MPAC+4 
of the present job 


MPAC+5 = LOCCTR (for use in "BLANKET"; appropriate interrupt 

inhibits done) 

Proceed to address specified by (MPAC+3 + TS, ) (return to 

caller) 


G0FLASH2+1 (Entered for those display interface routines whose 
tags do not end in "R", but which require display 
activity. "MARKMONR" an exception) . 


Set bits 11-9 of MPAC+4 = EBANK 

MPAC+3 = (calling address +1, in FCADR format, of display inter- 
face routine: see explanation with "GODSPRS+1") 

Proceed to "MAKEPLAY" (after releasing interrupts) 

MAKEPLAY (Established by "GODSPRS+1", and entered directly from 

"G0FLASPi2+l" , as common starting point for all processing 
of those display interface routines requiring display 
activity) 


MPAC+7 = (bits 14-10 of priority) (priority of present job) 
Change priority of present job to 33g 
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If bit 15(MKEXREQ) of MPAC+4 =1: (i.e. mark/extended verb) 

COPINDEX = 1 (Tag here "MAKEMARK") 

DSPFLG+1 = MPAC+4 

If bits 6(D0THNRET) and 4(FLRBQ) of MPAC+4 7 ^ 00^: 

CADRFLSH+1 = MPAC+3 (calling address information 

needed for flash or return) 

NVWOREH-l = MPAC+1 (verb-noun information) 

If bits 14(PRI0IDLE) , 13(N0RMIDLE) , 12(PDSPFLAG), 8(NRMWTKEY), 
and 7(PR0WlKEr) of FIAGWRD4 all = 0: priority or 

noniial display waiting for 
response or busy DSKY to be 
released) 

If bit 9(MEKWTKEY) of FLAGWRD4 = 1, End of job (mark 

display waiting for 
busy DSKY to be released) 

Proceed to "MARKPLAY" 

If bits lA(PRIOIDLE), 12(PDSPFLAG), and 7(PR0WTKEY) of 

FLAGWRD4 all =0: (i.e. bits 13 and/or 8 are 1 only) 

Set bit 3(MK0VN0RM) of FLAGWRD4 = 1 

MPAC+0 = 1 

Proceed to "JOBXCHS+1" (remove present normal display 

from DSKY interface registers, 
then go to "MARKPLAY") 

If bits 11 (MARKWAIT) and 5(RUPTMARK) of FLAGWRD4 / 00^: 

End of job (mark display already in system awaiting 
generation or restoration) 

Set bit 11 (MARKWAIT) of FLAGWRD4 = 1 

MPAC+0 = 0 

A\';aken job (if any) with starting address id = "MARKPLAY" 

If LOCCTR > 0: (indicates a job found) 

Set starting address of awakened job to "End of job" 

Put present job to sleep (starting address id = "MARKPLAY") 
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If bit 7(PRI0REQ) of MPA0t4 = 1: 



U 


(i.e. priority display) 

COPINDEX = 0 (Tag here "MAKEPRIO") 

If bit 14(RESETREQ) of MPAC+4 = 0: (no repeat display) 

If bits 14(PRI0IDLE) and 7(PR0WrKEY) of FUG'WRD4 ^ 00^: 

Proceed to "POODOO" (pattern 21502g) (display in 

system already) 

If bit 14(RESETREQ) of MPAC+4 = 1: 

If CADRFLSH+0 = MPAC+3 : 

If DSPL0CK> 0, End of job 

If bits 15(MARKIDLE) and 9(MRKWTKEl) of FLAGWRD4 ^ 00^: 

MPAC+0 = 0 

Proceed to "JOBXCHS+1" (remove present mark display from 

DSKY interface registers, then 
go to "OKTOCOPY") 

If bits 13(N0RMIDLE) and 8(NiayiWTKEY) of FLAGWRD4 ^ OO 2 : 

MPAC+0 = 1 

Proceed to "JOEXCHS+1" (remove present normal display from 

DSKY Interface registers, then 
go to "OKTOCOPY") 

Proceed to "OKTOCOPY" 

If bits 15(MKEXREQ) and 7(PRI0RBQ) of MPAC+4 “ ^^ 2 ’ they will, 

normal display) 

COPINDEX = 2 (Tag here "IFLBGAL") 

If bit 14(RESETREQ) of MPAC+4 = 0: 

If bit 4(FLREQ) of DSPFLG+2 = 1: 

If bits 13(N0RMIDLE), IO(NORMWAIT) , 8(NRMWTKEY), and 
4(RUPTN0RM) of FLAGWRD4 0000^: 

Proceed to "POODOO" (pattern 21502^) (normal display 

already in system) 

If bit 14(RESETREQ) of MPAC+4 = 1: 

If CADRFLSH+2 = MPAC+3 : 

If DSPLOCK > 0, End of job 
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(If bits 15 (MKEXREQ) and 7(PRI0REQ) of MPAC+4 = 00^): 

DSPFLGt2 = MPAC+4 (Tag here "OKTOPLAY") 

If bits 6(D0THNRET) and 4(FIT®3) of MPAC+4 ^ OO 2 : 

CADRFLSH+2 = MPAC+3 (calling address information) 

NVWORD+2 = MPAC+1 (verb-noun information) 

RESTREG = MPAC+7 + Channel 7 (in bits 7-5, superbank value) 

If any of bits 15(MARKIDLE) , 14(PRI0IDLE) , 12(PDSPFIAG) , 
ll(MARKWAIT), 9(MRKWTKEI), 7(PR0WTKEY), 5(RUPTMARK), 
or l(XDSPFLAG) of FLAGWRD4 - 1: 

Set bit lO(NORMWAIT) of FLAGWRD4 = 1 

MPAC+0 = 1 

Awaken job (if any) with starting address id = "PLATJUML" 

If LOCCTR ^ 0: (indicates a job found) 

Set starting address of awakened job to "End of job" 

Put present job to sleep (starting address id = "PLAYJUMl") 

Set bit 5 (Key Release) of channel 11 = 0 

If bit 8(NRMWTKEY) of FLAGWRD4 = 1: (bits 9,7 known O) 

Set TS = DSPLIST and DSPLIST = 0 (normal display wait- 
ing for DSKY to be 

If bit S(NRMWTKEY) of FLAGWRD4 = 0: released) 

Set TS = CADRSTOR and CADRSTOR = 0 
Awaken job (if any) with starting address id = TS 
If LOCCTR^ 0: (indicates a job found) 

Set starting address of awakened job to "End of job" 

Proceed to "PLAYJUMl" 

OKTOCOPY (Entered after completion of DSKY interface registers 
resets, if needed, to allow for a priority display) 

COPINDEK = 0 
DSPFLG+0 = MPAC+4 

If bits 6(D0THNRET) and 4(FLREQ) of MPAC+4 ^ 00^: 

CADRFLSH+0 = MPAC+3 (calling address information) 
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NVWORD+0 = MPAC+1 (verb-noun information) 

Set bit 5 (Key Release) of channel 11 = 0 

If bits 9(MRKWTKEY), 8(NEMWTKEI), and 7(PR0WTKEl) of FIAGWRD4 ^ 000^: 

Set TS = DSPLIST and DSPLIST = 0 (only bit 7 of interest) 

If bits 9(MRKWTKEY), 8(NRMWTKEI), and 7(PR0WTKEI) of FLA.GWRD4 = OOO 2 : 

Set TS = CADRSTOR and CADRSTOR = 0 (only bit 7 of interest) 

Awaken job (if any) with starting address id = TS 
If LOCCTR > 0: (indicates a job found) 

Set starting address of awakened job to "End of job" 

Proceed to "REDOPRIO" 

JOBXCHS+1 Entered to replace the present contents of the DSKY 

interface registers (CADRSTOR and DSPLIST) with 0 for use 
by a display pre-empting the display system: a priority 
display replaces a mark/extended verb or normal display; 
a mark/extended verb display replaces a normal display. 

Set bit 5(Key Release) of channel 11 = 0 

If bits 9(MEKWTKEI), 8(NRMWTKEI), and 7(PR0WTKEY) of FLAGWRD4 ^ 000^: 

Set TS = DSPLIST and DSPLIST = 0 (only bits 9,S of interest) 

If bits 9(MRKWTKEI), 8(NRMWTKEY), and 7(PR0WIKEl) of FLAGWRD4 = 000^: 

Set TS = CADRSTOR and CADRSTOR = 0 (only bits 9,^ of interest) 

Awaken job (if any) with starting address id = TS 

If LOCCTR^ 0: (indicates a job found) 

Set starting address of awakened job to "XCHSLEEP" 

Set MPAC+0 of awakened job (using LOCCTR for indexing) equal 
to MPAC+0 of the present job 

If MPAC+0 = 0: 

Set bits 15(MARKIDLE) and 9(MRKWTKEY) of FLAGWRD4 = 0 
Set bit 5(RUPTMARK) of FLAGWRD4 = 1 (mark display interrupted) 
If MPAC+0 = 1: 

Set bits 13(N0RMIDLE) and 8(NRMWTKEl) of FLAGWRD4 = 0 

Set bit 4(RUPTN0RM) of FLAGWRD4 = 1 (normal display interrupted) 
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If bit 3(]yiK0VN0RM) of FIAGWRD4 = 1, proceed to "MARKPLAY" 

Proceed to "OKTOCOPY" 

XnRST.EFlP 

If MPAC-K) = 0: 

TS = "MARKPLAY" 

If MPAC-K) = 1: 

TS = "PLAYJUMl" 

Awaken job (if any) with starting address id = TS 

If LOCCTR > 0: (indicates a job foimd) 

Set starting address of awakened job to "End of job" 

Put present job to sleep with starting address id = TS (has MPAC-ti 
registers set for functions of present job rather than 
previously sleeping job, which are lost) 

REDOPRIO Entered when it is concluded that a priority display on the 
DSKY should take place (provided DSKY not busy). 

PRIOTIME = TIMEl 

COPINDEX = 0 (Tag here "KEEPPRIO")' 

Proceed to "NVDSP" 

MARKPLAY Entered when it is concluded that a mark/ext ended verb display 
on the DSKY should take place (provided DSKY not busy). 

Set bit 3(MK0VN0RM) of FLAGWRD4 = 0 

Set bit l(XDSPFLAG) of FLAGWRD4 = 1 

TS^ =0 (L register, for "NVMONOPT" use) 

If bit 8(DECM0N) of DSPFLG+1 = 1: ("MARKMONR" entrance) 

TS^ = (bits 14-8 of NVWORlH-1) 

Skip next line (i.e. always complement NVWORIH-l) 

If bit 5(PERFREQ) of DSPFLG+1 =1: 

NWORIH-l = - NWORD+1 
COPINDEX = 1 

Proceed to second line of "NVDSP" 
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PIAYJUMl Entered when it is concl\jded that a normal display on the 
DSKY should take place (provided system not busy). 

COPINDEX = 2 

Proceed to "NVDSP" 

NVDSP Entered (with COPINDEX set to indicate type of display) to 
initiate display on DSKY (provided system not busy due to 
keyboard/uplink use). Tag also "GOPLAY". 


TS^ = 0 
MPAC+6 = K 


(L register, for '’NVMONOPT" use) 


octmsk 


COPINDEX 


(enter here from "MARKPIAY") 


MPAC+4 = DSPFIG^qp^^^^ 

EBANK = (bits 11-9 of MPAC+4) 


TS 


^ = TS^ + (bits 3-1 of MPAC+4) 


(bits 3-1 for blanking) 


Set bit 13(2NDPERF) of DSPFLG^^^^,,^„^ = 0 


MPAC2SAV = MPAC+2 
MARK2PAC = MPAC+2 


If NVWORD^qPjjjP^ > 0: 


COPINDEX 

(contains machine address for address-to- 
be-specified nouns) 


TS = NWORD, 
If NVWORD 


COPINDEX 

0: (e.g. "CLEANDSP" or "KLEENEX" entered) 


COPINDEX 

Establish "JAMTERM" (priority 32rt) (note that DSPLOCK not 

° checked) 

Proceed to second line of "FIASHSUB" 

If NVWORDpQppjjpgjj. < 0: (set in "MARKPIAY") 

NVWORD+1 = - NVWOREH-1 

TS = (bits 7-1 of NWORD+1) + 01200^ (verb 05 scaled) 

If bit 8(DECM0N) of ^^SPFLG^qPPjjPP^^ = 1: (i.e. from "MARKMONR") 
TS = TS + 2600g (changes verb to l6) 

Proceed to "NV50DSP" 

NV50DSP 

Perform "NVMONOPT": if retiorn to calling address +l(busy), proceed 

to "REST" 

otherwise, proceed (TS and TS^ set) 
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Set bit 6 (Flash) of channel 11 = 0 
MPAC+2 = MPAC2SAV 
MPAC+6 = K 


octmsk, 


COPINDEX 


MPAC+4 = DSPFLG^ 


COPINDEX 
EBANK = bits 11-9 of MPAC+4 

Set bits 9(MRKWTKEY), 8(NRMWTKEY), and 7(PR0WTKEY) of FLAGWRD4 = 0 

TS = MPAC+4 (bits 3-1 are R3BLNK, R2BLNK, and RIBLNK) 

Perform "BLANKSUB" : if return to calling address +1 (busy, as should 

not be), proceed to "NVDSP" 
otherwise, proceed 


If bits 13(2NDPERF) and 5(PERFRBQ) of MPAC+4 = OI 2 : 
Set bit 13 of DSPFKJ^qp^j^^ = 1 


(Tag here "PERFCHEK") 


(L register, for "NVMONOPT" use) 


TSp = 0 

If bit 15(MKEXRBQ) of = 1: 

TS = bits 14-8 of NVWOEm-1 (l.e. xxOO ) 

vn^ 

Proceed to "NV50DSP" 

If bit 12(BURNREQ) of DSPFLG, 


(Tag here "MARKPERF") 


COPINDEX 


TS = 5000. 


0: (i.e. not from 

"CLOCK JOB") 


vn 


Proceed to "NV50DSP" 

TS = 9700 - NWORDl (9700 for NWORDl = 0, 9900 

for PWORDI = --400^: NWORDPshould 
not be confused with NVWDRD+i) . 

Proceed to "NV50DSP" 

If bit 4(FLREQ) of MPAC+4 = 1, proceed to "FLASHSUB" (Tag here "GOANIDLE") 
If bit 6(D0THNRET) of MPAC+4 = 1: 

TS = CADRFLSHpQppjjpg^ 

Change priority of this job to that in bits 14-10 of MPAC+7 

(restoring original 


Proceed to address specified by TS 


value ) 
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If bits 7-1 of = 0: (i.e. xxDO^) 

Proceed to "FUSHSUB" 

End of job 

REST Entered from beginning of "NV50DSP" for a busy return from 

"NVMONOPT" (DSKY or uplink being used externally) 

If CADRSTOR ^ 0 , End of job 

If COPIN DEX = 0: 

Set bit 7(PR0WTKEY) of FLAGWRD4 = 1 (priority display) 

If COPINDEX = 1: 

Set bit 9(MRKWTKEY) of FLAGWRD4 = 1 (mark display) 

If COPINDEX = 2: 

Set bit 8(NRMWTKEY) of FLAGWRD4 = 1 (normal display) 
Proceed to "NVSUBUSY" 

NVSUBUSY 

If CADRSTOR ^ 0 , proceed to "POODOO" (pattern 21206g) 

If DSPLIST ^ 0, proceed to "POODOO" (pattern 21206g) 

Set bit 5 (Key Release) of channel 11 = 1 
If COPINDEX = 0: 

DSPLIST = "REDOPRIO" 

If COPINDEX = 1: 

DSPLIST = "MARKPLAY" 

If COPINDEX = 2: 

DSPLIST = "PLAYJUMl" 

Put present job to sleep (starting address id = DSPLIST) 
FLASHSUB 

Set bit 6 (Flash) of channel 11 = 1 
MPAC+3 = COPINDEX 
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If COPINDEX = 0: 

Set bit 14(PRI0IDLE) of FLAGWRD4 = 1 
If COPINDEX = 1: 

Set bit 15(MARKIDLE) of FIAGWRD4 = 1 
If COPINDEX = 2: 

Set bit 13(N0RMIDLE) of FIAGWRD4 = 1 
If CADRSTOR ^ 0: 

If bits 15(MARKIDLE) and 6(PINBRFIG) of FLAG'WRD4 = 00^: 

Proceed to "POODOO" (pattern 21502g) 

End of job 
Proceed to "ENDIDLE" 

ENDIDLE 

If CADRSTOR ^ 0, proceed to "POODOO" (pattern 21206^) 

If DSPLIST ^ 0, proceed to "POODOO" (pattern 21206g) 

CADRSTOR = "IDLERETl" 

Put present job to sleep (starting address id = CADRSTOR) 

IDLERETl 

If MPAC+0 i 21, 22, or 23: (loaded in "RECALTST" with verb) 

Proceed to "OKTOENT" 

TS - (bits 7-1 of NVWORD^^^^) (MPAC+3 has COPINDEX) 

If MPAC+1 = TS: (loaded in "RECALTST" with noun) 

Proceed to "OKTOENT" 

Proceed to "PINBRNCH" (noun loaded not what display routine asking) 





DINT-16 


Rev. 0 


OKTOENT Entered after response to flash 

If bit 15(MARKIDLE) of FIAGWRD 4 = 1 ; (mark display waiting) 

Set bit 3(MK0VN0RM) of FLAGWRD 4 = 0 

Proceed to "ENDRET" ("NORMRET" processing done e.g. via "ENDEXT" ) 

If bit 14(PRI0IDLE) of FIAGWRD 4 = 0: 

Proceed to "NORMRET" 

If NVWORIH-O = 0: (priority "JAMrERM"-type action, e.g. from "R 6 ICSM") 

Proceed to "NORMRET" 

TS = PRIOTIME - TIMEl (priority display, enforce mi nni m im delay) 

If TS > 0: 

TS = 163.84 - TS seconds (correct for TIMEl overflow) 

Proceed to second line of "REDOPRIO" (response too near initiation) 
Proceed to "NORMRET" 

NORMRET Entered from "OKTOENT" and "ENDEXT" 

If bits ll(MARKWAIT)and 5(RUPTMARK) of FLAGWRD4 ^ 00^: 

Set bits ll(MARKWAIT) and 5(RUPTMARK) of FLAGlflIRD4 = 0 
TS = "MARKPLAY" 

Awaken job with starting address id = TS 
Proceed to "ENDRET" 

If bits lO(NORMWAIT) and 4(RUPTN0RM) of FLAGWRD4 ^ 00^: 

Set bits lO(NORMWAIT) and 4(RUPTN0RM) of FLAGWRD4 = 0 
TS = "PLAYJUia" 

Awaken job with starting address id = TS 
Proceed to "ENDRET" 

If bits 6(D0THNRET) and 4(FLREQ) of DSPFLG+2 ^ 00^: 

Proceed to "ENDRET" (both bits set by "ROO") 

If NVWORrH-2 = 0, proceed to "ENDRET" 
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Establish "PLAYJUMl" (priority 15g) 

Proceed to "ENDRBT" 

ENDRET 

If LOADSTAT> 0, End of job (e.g. from "ENDEXT") 

If LOADSTAT = +0, Error 

If bit 2(VNFLAG) of FLAGWRD4 = 1: 

If MPAC+3 =2: (i.e. normal display) 

Set bit 2(WFLAG) of FLAGWRD4 = 0 (Tag here "VNRET") 

TS = LOADSTAT + 1 

If TS > 0: (LOADSTAT was -0, "otherwise" response of an 

e.g. data load) 

MPAC+3 = CADRFLSH+-2 - 3 
If TS = 0: (LOADSTAT was -1, a PRO response) 

MPAC+3 = CADRFLSHf2 - 1 

If TS <0: (LOADSTAT was -2, a V34E response) 

MPAC+3 = "GOTOPOOH" 

Proceed to "ENDRET2" 

MPACH-3 = CADRFLSHj^^p^^ + LOADSTAT + 2 

Proceed to "ENDRET2" 

ENDRET2 

Set those bits of 15-12 and 6 in FLAGWRD4 to 0 that are 1 in MPAC+6 

(If MPAC+6 indicates priority, bits 14(PRI0IDLE) and 6(PINBRFLG) 
reset; if indicates mark, bit 15(MARKIDLE) reset; if normal, 
bits 13(N0RMIDLE) and 6(PINBRFLG) reset. MPAC+6 loaded near 
start of "NV50DSP"). 

TS = -3 (blank all display registers except program) 

Perform "NVSUB": if return to calling address +l(busy), proceed 
otherwise, proceed 

Change priority of present job to that specified in bits 14-10 
of MPAC+7 

Proceed to address specified by MPAC+3 
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Quantities in Computations 

See also list of major variables and list of routines 




CADRFLSH, (i = 0,1,2): Set of three single precision erasable memory 
cells used to retain return address information (in FCADR format, 
vrith bits 15-11 giving the FRANK and bits 10-1, plus 2000g, giving 
the S-register contents) from the display interface routine (for 
bits 6(D0THNRET) or 4(FLRBQ) of DSPFLG. being l). CADRFLSRtO is 
the address for a priority display, CADRFLSIR-1 for a mark/extended 
verb display, and CADRFLSHt2 is for a normal display. For most 
flashing three-response displays (all except "WFLASH(R)") , the 
cells contain the information for the terminate ret\irn address, and 
are incremented in- "ENDRET" for proceed or "othervd.se" (e.g. data 
enter or recycle) responses. For "VNFLASH(R)", the cells contain 
one greater than the PRO retvirn address (for "INITDSP" reasons): a 
terminate response exits directly to "GOTOPOOH", while an "othervd.se" 
response causes the return to be 3 less than the present contents, i.e. 
the acquisition of the verb-noun pattern. CADRFLSHt2 also has the 
program notation "TEMPFLSH" . "INITDSP", entered if restart logic 
invoked, causes transfer to CADRFLSH-l-2 - 3 (the "setting" of TS for 
the standard display routine calling sequence): consequently, if 
CADRFLSHf2 is set to "XXXX" +3, this logic vd,ll cause "XXXX" to 
be entered (and is so used at the end of "ROO"). 

CADRSTOR: See Data Input /Output . It is 0 if no job in "ENDIDLE", and 
othervd.se is set to "IDLERETl" . 

COPINDEX: Single precision cell, scale factor B14, used to retain 

indexing infomiation on the type of display being processed (O^ 
and 2 for priority, mark/extended verb, and normal respectively). 

It i^ assigned to the LOG cell of the job register ^ set (which is 
written over with job starting information if the job is put to 
sleep). 

DSPFLG- (i ^ 0,1,2): Get of three single precision erasable memory 
cells used to retain values of control-bit information for 
individual displays (priority, mark/extended verb, and normal 
respectively). FLAGWRD4 is used to contain control and status 
information for the display routines as a whole. When a display 
interface routine is initially entered, cell MPAC+A is used to 
store temporarily the required settings for the pertinent DSPFLG 
cell. Individual bits in the DSPFLG cells have the follovd.ng 
significance( words also "EBANKSAV", "MARKFLAG", and "EBANKTEM"): 


Bit Symbol 
15 MKFXREQ 

14 RESETRBQ 


Meaning 

Mark or extended verb request. Loaded only in 
DSPFLG+1 (and, of course, MPAC+4): bit in other 
DSPFLG cells expected to be 0. 

Repeat request (causes checks for already existing 
priority or normal displays to be bypassed: other- 
wise, an abort (pattern 21502q) would be caused if 
a display of the same type already in system) . Bit 
can also be set via the "BLANKET" routine (if a proper 
"R" display is used), as well as by the "RExxxx" 
interface routines • 
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Bit Symbol 

13 2NDPERF 

Meaning 

Second part of "perform" display sequence has 
been started (to "paste" a code verb, e.g. 50, 
after completion of a display loading X Bit set 0 
at the start of "NVDSP" and to 1 in "NV50DSP" 
if bit 5(PERFREQ) is 1 (and this bit, of course, 
is 0). 

12 BURMREQ 

Special display verb to request ignition auth- 
orization should be generated. Verb 99 is used 
if NVWORDl = — 400rtj if NVWORDl = 0, then verb 

97 is "pasted" instead. See "CL0CPLA.Y". 

11-9 

Value of EBANK when display routine entered 
(restored in "NVDSP" to ensure proper value when 
job calling routine, if appropriate, is started 
again) . 

8 DECMON 

Decimal monitor verb required for perform-type 
display (verb pasted over with one in calling 
sequence information), set for entrance to 
"MARKMONR" . No requirement for resetting bit 
exists (DSPFKi^ loaded completely for new display) . 

7 PRIOREQ 

Priority display requested (interface routine 
"PRIODSP(R)" used). Loaded only in DSPFLG+0. 

6 DOTHNRET 

Return requested after performance of the 

DSKY loading (interface routine "EXDSPRET" or 
"GODSPRET" used), to allow, for exiample, a verb 
"paste" without a flash. 

5 PERFREQ 

Perform-type display requested (see bit I3). 

4 FLREQ 

Flashing-type display (with associated requirement 
for processing of crew response) requested. 

3 R3BLMK 

Blanking of register R3 requested (done by transfer 
to "BLANKSUB" in "NV50DSP"). Bit can be set (usually) by 
use of an "R" display interface routine, followed 
by transfer to "BLANKET" with TS = Ixx^. 

2 R2BLMK 

Blanking of register R2 requested (can be set by 
transfer to "BLANKET" with TS = x 1 k: 2). See 
bit 3 discussion. 

1 RIBLMK 

Blanking of register R1 requested (can be set by 
transfer to "BLANKET" with TS = xxlo). See bit 3 
discussion. 
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DSPLIST: See Data Input/Output. It is a DSKY interface cell used to 
retain return address information if the display system is busy 
due to crew or uplink use (loaded in "NVSUBUSY" which is entered 
from "REST”). For index convenience, the cell is stored to make 
it the same as CADRSTORtl. 

DSPLOCK: See Data Input/Output (set 1 at start of "CHARIN" to indicate 
that the display system is busy with DSKY or uplink inputs, and 
hence should not be used by internal routines, not even for a 
priority display). It is checked automatically at the start of 
"NVSUB" and "BLANKSUB", causing return to calling address +1 for 
a non-zero value. Same check at start of "NVMONOPT" also. 

EBANK: See Data Input/Output (only bits 11-9 are defined). 

EXTVBACT: See Verb Definitions. 

FLAGWRD4: Single precision flagword cell whose individual bits are used 
to contain control and status information for the display routines 
as a whole (DSPFLGr. is used for individual displays). It is set 
zero in "STARTSB2"^ Individual bits have the following significance: 


Bit Symbol 
15 MARKIDLE 


Meaning 

A mark/extended verb display is waiting for a 
response (is the job asleep in "ENDIDIE"). Bit 
set in "FLASHSUB" prior to entering "ENDIDLE", 
and used in "OKTOENT" to identify the type of 
response received, whereupon it is reset (in "ENDRET2") 
prior to returning to caller. Could also be reset 
in "JOBXCHS+1" if display pre-empted by a priority 
display, vdiereupon bit 5(RUPTMARK) would be set 1 
to record this fact. 


14 PRIOIDLE 


A priority display is waiting for a response (is 
the job asleep in "ENDIDLE"). Bit set in "FLASHSUB" 
prior to entering "ENDIDLE", and used in "OKTOENT" 
to identify the type of response received, whereupon 
it is reset (in "ENDRET2") prior to returning to 
caller. 


13 NORMIDLE 


A normal display is waiting for a response (is 
the job asleep in "ENDIDLE"). Bit set in "FLASHSUB" 
prior to entering "MDIDLE", and used in "OKTOENT" 
to identify the type of response received, whereupon 
it is reset (in "ENDRET2") prior to returning to 
caller. Could also be reset in "JOBXCHS+1" if 
display pre-empted by a priority or mark/extended 
verb display, whereupon bit 4(RUPTN0RM) would be 
set 1 to record this fact. 
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Bit Symbol Meaning 


12 PDSPFLAG 

Bit set 1 to indicate that R60 display should be 
of the priority type (checked in "CHKLINUS", and 
set in "R61CSM" if a maneuver must be done by R60 
means, then reset). 

11 MARKWAIT 

A mark/extended verb display is waiting to be 
initiated. Bit is set in "MAKEPLAY" if a priority 
display presently on DSKY (assuming bit 5 (RUPTMARK) 
is O), and job put to sleep with starting address 
id = "MARKPLAY". Job awakened, and bit reset, in 
"NORMRET" after completion of present display effort , 
Helps give display sequence for DSKY of: crew/uplink 
use, priority display, interrupted mark/extended 
verb display, waiting mark/extended verb display, 
waiting normal display, interrupted normal display. 
An interrupted and a waiting display of the same 
type, however, cannot be in system at same time. 

In addition, waiting or interrupted normal dis- 
plays will not be restarted by an end to a mark/ 
extended verb display until e.g. "EMDEXT" is en- 
tered, and bit 1 of FLAGWRD4 serves to keep out 
normal displays once a mark/extended verb display 
attempt initiated (until "CLEARMRK" done). 

10 NORMWAIT 

A no^l display is waiting to be initiated. The 
bit is set 1 in "MAKEPLAY" if a priority or mark/ 
extended verb activity in the display system is 
^dicated (including bit l(XDSPFLAG) ) , and the job 
is put to sleep with starting address id = 

"PLAYJUMl". Job awakened, and bit reset, in 
"NORMRET" after completion of present display effort, 
provided bits 11 and 5 are 0. 

9 MRKWTKEY 

A mark/extended verb display attempt found the 
display system busy (so must wait for a key release). 
Bit is set in "REST" to indicate that a display 
of this type in DSPLIST (via "NVSUBUSY"). When job 
is awakened (e.g. by "RELDSP"), it starts at 
"MARKPLAY", and the bit would be reset in 
"NV50DSP" after successful initiation of the display. 
Bit could also be reset in "JOBXCHS+1" if a mark 
attempt was pre-empted by a priority display (cf . 
bit 15, since it woiild be reset at same time). 

8 NRMWTKEI 

A normal display attempt found the display system 
busy (see bit 9 discussion). When awakened, starts 
at "PLAYJUMl"; could also be reset if normal 
display pre-empted (cf. bit 13, since it would be 
reset at the same time ) . 

7 PROWTKEI 

A priority display attempt found the display 
system busy (see bit 9 discussion). When awakened, 
starts at "REDOPRIO". 
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Bit Symbol Meaning 


6 PINBRFLO 

Bit set to 1 in "PINBRNCH" if it is concluded that 
interference vrith the existing display has taken 
place (e.g. computations at the end of "FIASHSUB" 
conclude that a data enter verb was received but 
the associated noun was not that originally requested 
by the display). Bit also set 1 in "ENDEXT" if a 
priority or normal display waiting for response 
(bits 14 and/or 13 / O) . Bit reset 0 in "ENDRET2" 
upon successful conclusion of a priority or 
normal display (bit not set in "PINBRNCH" if bit 

15 (MARKIDLE) = l). Used in "FLASHSUB" to bypass 
abort otherwise caused if CADRSTOR / 0. 

5 RUPTMARK 

A mark/extended verb display (or display attempt, 
e.g. if system busy) has been interrupted by a 
priority display. Bit is set in "JOBXCHS+1" (cf . 
bits 15 and which would be reset) if the mark/ 

extended verb activity is pre-empted by a priority 
display request. Job awakened, and bit reset, in 
"NORMRET" (same effect there as bit 11). 

4 RUPTNORM 

A normal display (or display attempt, e.g. if system 
busy) has been interrupted by a priority display 
or by a mark/extended verb display. Bit is set in 
"JOBXCHS+1" (cf. bits 13 and 8, which would be reset 
then), and used in "NORMRET" to awaken job, provided 
bits 11 and 5 are 0 (same effect there as bit 10), 
whereupon it is set 0. 

3 MKOVNORM 

Mark display is to pre-empt a normal display: set 
as described for bit 4 setting for mark/extended 
verbs. Bit set 1 in "MAKEPLAY" to control proper 
exit from "JOBXCHS+1", namely to "MARKPLAY", 
where bit is set 0 again. Also reset in "OKTOENT" . 

2 VNFLAG 

Bit set 1 by "VNFLASH(R)" to indicate a special use of 
display interface (see MPAGt-3)i and reset in "ENDRET" 
at the conclusion of processing for it. 

1 XDSPFLAG 

Bit set 1 in "MARKPLAY" to signify that a mark/ 
extended verb display has been initiated (or an 
attempt of that type). Used in "MAKEPLAY" to keep 
normal displays from using the DSKY if bit is 1. 

Bit reset by "CLEARMRK" (entered e.g. from "ENDEXT"). 


K p : Single precision constant, program notation "-2SEC", scale 
factor B14, ijnits centi-seconds . Value is -200 x 2“^, 
corresponding to -2 seconds. 

K , , : Set of three single precision octal constants used as bit 

oc ms ^ masks, program notation (i = O) "PRIOOCT", values 2O1440J 
42424 ., and 11254cv respectively. The setting of bit 3 = 1 is a 
holdover from a former flagbit routine, and is no longer employed. 
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LOADSTAT: See Data Input/Output. Values of -0, -1, and -2 are set for 
"othervd.se" (e.g. V32E or data enter), PRO, and V3AE responses 
respectively . 

LOCCTR: Single precision cell set in executive system to -1 if the 
"job wake" routine found no job with the indicated starting 
address id; otherwise, it is set to an index parameter (B14) for 
locating the core register set of the awakened job (should not 
be zero if the "job wake" routine itself was entered from a job). 

See 3420 . 5-27 for details. It is set similarly when a job established. 

MARK2PAC: Single precision cell used to retain the value of MPAC+2 

when "NVDSP" was last entered, and used to load the proper value 
when "PINBRNCH" is entered. MPAC+2 is used to contain the machine 
address for address-to— be— specified nouns used internally . 

MPAC- (i = 0-7): Set of cells associated with each job register (a 
collection of 12 erasable memory cells assigned to each job) 
set, used in the interpretive language for vector and scalar 
accumulator functions, and used in machine language as temporary 
storage cells. Assignments of significance for the display 
interface routines are listed below (other quantities also use 
these cells, but are listed separately). Note that each job 
has its own job register set (hence there could be distinct 
MPAC+7 values, for example, for several different display 
interface functions simultaneously, each waiting for the necessary 
action to be completed). 

MPAC+0: Index cell used by "XCHSLEEP" and "JOBXCHS+1", set to 0 

to change mark/extended verb displays and 1 for normal displays. 
Program notation is "FACEREG" . Cell loaded in "RECALTST" with 
the verb pattern (VERBREG) when "RECALTST" entered. 

MPAC+1: Cell loaded with verb/noun pattern when display interface 
routine entered (frequently the TS setting, mechanized as the 
hardware accumulator) . Program notation "PLAYTEMl" . Cell 
loaded in "RECALTST" vjlth the noun pattern (NOUNREG) when 
"RECALTST" entered. 

MPAC+2: Cell loaded with machine address for address-to-be- 
specified nouns. 

MPAC+3: Cell loaded with calling address information (i.e. the 
"immediate return" for non-flash or the "terminate return" 
for flash). It is loaded with address of step "L" in the 
sequence (program notation "PLAYTEM3"): 

L-3 CA (TS information, e.g. verb/noun) 

L-2 TC BANKCALL (routine to change program banks) 

L-1 CADR XXXX (address of interface routine) 

L (terminate return) 

L+1 (proceed return) 

L+2 (enter/recycle return) 

L+3 (return for "R" flash-type displays, usually) 

This sequence does not apply to "VNFLASH(R)" sequences. For 
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these two calling routines, the entrance point is in fixed -fixed 
memory, meaning that the "BANKCALL" interface routine is not 
necessary. Hence MPAC+3 is loaded with address of step "L" 
in the following sequence: 

L-3 CA (TS information, e.g. verb/noun) (enter/V32 

L-2 TC "VNFUSH(R)" return) 

L-1 (proceed return) 

L (return for "WFLASHR") 

The setting of "L" as indicated is accomplished by incrementing 
the Q register at the entrance to the routine: this allows "INITDSP" 
restart logic to transfer to L-3 to obtain the TS information. The 
return to L-1 for a FRO and L-3 for an "otherwise" is accomplished 
by the logic in "ENDRET"; a V34E causes direct exit to "GOTOPOOH" . 

The same cell is loaded with the value of COPINDEX at the start 
of "FLASHSUB", where has notation COPMPAC, to retain COPINDEX 
information when job put to sleep. 

MPAC+4: Cell located with appropriate DSPFIG pattern in display 

interface routine . Program notation "PLAYTEM4" and "TEMP0R2" . 

MPAC+5: Cell loaded in "GODSPRS+1" with the value of LOCCTR for the 

display job established (for "R" tjqje displays, except "MARKMCNR"), 
to permit "BLANKET" to be entered to set additional bits of MPACH-4, 
such as bits 3-1 (RiBLNK). 

MPAC+6: Cell used to contain the masking bit pattern (K + j^) foi* 

the display, employed in "ENDRET2" to reset the proper bits 
of FLAGWRD4. Program notation "GENMASK" . 

MPAC+7: Cell loaded in "MAKEPLAY" with the priority of the using 

routine, for use in "ENDRET2" to restore the same priority. This 
works for "R" type displays also, since "GODSPRS+1" establishes 
"MAKEPLAY" with the same priority as that of the calling job. 

Program notation is "USERPRIO" : cell strictly speaking is not 
part of the "MPAC" set, but instead is used in interpretive 
language for indicating type of computation ("MODE" value) being 
performed. 

MPAC2SAV: Cell (part of job register set, corresponding to MPAC+9) used 
to retain value of MPAC+2 at the start of "NVDSP", for restoration 
after "NVMONOPT" (which uses the cell for temporary storage purposes) 
has been performed. 

NVWORD, (i = 0,1,2): Set of three single precision erasable memory 

cells used to retain values of the noun-verb pattern (bits 14- 
8 for verb and 7-1 for noun) for priority, mark/extended verb, and 
normal displays respectively. Program notations "NVWORD", "MARKNV", 
and "NVSAVE" respectively (NVW0RI>t2 and DSPFLG+2 set 0 in "DOFSTART"). 
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NV¥0RD1: See Burn Control. 


OPTIONl, 0PTI0N2: Pair of single precision cells displayed in octal 
by using noun 06 (implemented in some cases by loading 0PTI0N2 
before entering the display Interface routine "G0PERF4", and 
setting TS to OPTIONl) . OPTIONl is used to contain the "option 
code identification" (for the purpose of the display, such as 
specification of IMQ orientation) and 0PTI0N2 is used to contain 
the "option selection" consistent v/ith OPTIONl (such as "IMU 
orientation to preferred alignment"). A manual input changing 
only OPTIONl (leaving 0PTI0N2 unchanged) will be interpreted as 
a response, and can not be used to change the subsequent program 
logic . 

PRIORITY: See General Program Control. 

PRIOTIME: Single precision value of least significant half of computer 
clock (TIMEl), scale factor BIA, units centi-seconds, used to 
retain the time viien "REDOPRIO" last entered. Cell is used in 
"OKTOENT" to check that the present magnitude of the difference 
between PRIOTIME and TIMEl (after allowing for TIMEl overflow) 
is greater than - : if not, it is suspected that the 

response was associatiS^with the interrupted display rather than 
the priority display, and consequently the priority display is 
repeated (without, however, resetting PRIOTIME). Since only 
single precision times are used, a time lapse of l63.84n +2 - 0 
seconds (n an integer) is interpreted as being in the "too quick" 
zone . 

RESTREG: Single precision cell used to retain restart information for 
normal displays. It is initialized to 30000^ in "DOFSTART", 
meaning priority 30g, and is used in "INITDSP" (entered if a 
restart encountered with a x.l restart phase setting) to properly 
restore value of PRIORITY and Channel 7 (FEXT or SUPERBNK). The 
cell is also loaded in "MAKEPLAY" (for a normal display only). 
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